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SECTION  1 .  GENERAL 

1.1  Purpose  of  Program  Maintenance  Manual.  This  Program  Main¬ 
tenance  Manual  for  the  Plant  Job  Scheduling  Model  (PJSM)  System, 
with  a  System  Identifier  Code  of  LAT,  will  provide  the  maintenance 
programmer  personnel  with  the  information  necessary  to  effectively 
maintain  the  system. 

1.2  Project  References.  This  system  was  developed  at  the  request 
of  the  Vice  Chief  of  Staff  of  the  Army  (VCSA)  for  use  by  AMCCOM  to 
provide  an  automated  approach  to  ammunition  programming  and  budget¬ 
ing  activities.  The  system  will  provide  a  data  base  of  record  for 
ammunition  programming  and  budgeting,  analytical  capabilities  for 
decisionmaking,  and  POM  and  budget  documentation.  The  following 
references  are  applicable: 

a.  Functional  Description,  PJSM  System,  ADSM  18-L62-LAT-ZZZ-FD-ATA, 

2  Feb  87;  unclassified. 

b.  SA-TN-8701,  U.S.  Army  Armament,  Munitions,  and  Chemical 
Command;  A  Management  Decision  Tool  for  Ammunition  Acquisition  (The 
Ammunition  Plant  Job  Scheduling  Model);  Systems  Analysis  Office; 

May  87;  unclassified. 

c.  TB  18-111,  Technical  Documentation;  U.S.  Army  Information 
Software  Support  Systems  Command;  22  Apr  83;  unclassified. 

d.  TB  18-103,  Technical  Documentation;  Software  Design  and 
Development;  U.S.  Army  Information  Software  Support  Systems  Command; 

3  Jan  83;  unclassified. 

e.  DOD  7935.1-STD,  Department  of  Defense  Automated  Data  Systems 
(ADS)  Documentation  Standards;  Office  of  the  Assistant  Secretary  of 
Defense  (Comptroller);  24  Apr  84;  unclassified. 

f.  ORACLE  User  and  Reference  Manuals;  ORACLE  Corporation, 

Menlo  Park,  CA;  unclassified. 

1.3  Terms  and  Abbreviations. 

AAO  Authorized  Acquisition  Objective 

AAP  Army  Ammunition  Plant 

AEMS  Ammunition  Executive  Management  System 


AMCCOM 


Armament,  Munitions  and  Chemical  Command 
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AMC  Army  Materiel  Command 

APMO  Ammunition  Program  Management  Office 

COB  Command  Operating  Budget 

COR  Contracting  Officer  Representative 

DA  Department  of  the  Army 

DCSOPS  Deputy  Chief  of  Staff  for  Operations  and  Plans 

DCSRDA  Deputy  Chief  of  Staff  for  Research,  Development 
and  Acquisition 

DDN  Defense  Data  Network 

DODAC  Department  of  Defense  Ammunition  Code 

DODIC  Department  of  Defense  Identification  Code 

DOS  Days  of  Supply 

DSACS  Defense  Standard  Ammunition  Computer  System 

DSS  Decision  Support  System 

FMS  Foreign  Military  Sales 

rSC  Federal  Supply  Class 

GAO  Government  Accounting  Office 

HQ  Headquarters 

HQDA  Headquarters  of  the  Department  of  the  Army 

IAF  ORACLE  Interactive  Application  Facility 

I  AG  ORACLE  Interactive  Application  Generator 

IAP  ORACLE  Interactive  Application  Processor 

ICAPP  Integrated  Conventional  Ammunition  Procurement 

Plan 


IRD 


Industrial  Readiness  Directorate 
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ISN 

JCS 

JSPD 

MCA 

MPQ 

NMF 

NSN 

ODCSOPS 

ODCSRDA 

OSD 

PARR 

PBD 

PBMA 

PD 

PDE 

PD  IP 

PDM 

PJSM 

POM 

PPBS 

RAMP 

RCN 

R&D 

RDAISA 


Item  Sequence  Number 

Joint  Chiefs  of  Staff 

Joint  Strategic  Planning  Document 

Military  Construction  Army 

Minimum  Procurement  Quantity 

New  Material  Fielding 

National  Stock  Number 

Office  of  the  DCSOPS 

Office  of  the  DCSRDA 

Office  of  the  Secretary  of  Defense 

Program  Analysis  and  Resource  Review 

Program  Budget  Decision 

Production  Base  Modernization  Agency 

Production  Directorate 

Pricing  Division 

Program  Development  Incremental  Package 

Program  Decision  Memorandum 

Plant  Job  Scheduling  Model 

Program  Objective  Memorandum 

Planning,  Programming,  and  Budgeting  System 

The  2  years  preceeding  start  of  the  POM  period 

Revision  Control  Number 

Research  and  Development 

Research,  Development  and  Acquisition  Information 
Systems  Agency 
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Rock  Island  Arsenal 
Systems  Analysis  Office 
Sequence  Control  Number 
Standard  Study  Number 

Training  Ammunition  Management  Information  Systems 

Total  Obligation  Authority 

ORACLE'S  User  Friendly  Interface 

Vice  Chief  of  Staff  of  Army 

Worldwide  Ammunition  Reporting  System 
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SECTION  2.  SYSTEM  DESCRIPTION 

2.1  System  Application.  The  riant  Job  Scheduling  Model  (?JSM) 
system  wi  II  provide  management  with  a  decision  *:ool  to  integrate 
functional  objectives  and  planning,  programming,  and  budgeting 
guidance,  with  HQDA  training  and  combat,  requirements,  other  DCL 
customer  needs  and  production  base  capabilities,  to  result  in  an 
achievable  multi -vear  ammunition  program. 

a.  This  sytem  will  maintain  a  data  base  of  all  ammunition 
items  which  are  available  for  production  during  the  POM  years. 
Production  facilities  must  be  available  during  the  POM  period. 
Workload  considerations  are  restricted  to  GOCO  AAPs  and  GOGO 
arsenal s.'ncti vi ti es .  Commercially  produced  items  are  reported  bv 
production  capacities.  Component  breakout  is  restricted  to  GOCO 
materiel  and  commercial  materiel  considered  a  limiter  (pacer >. 

Other  DOD  customer  requirements  compete  for  G0C0/G0G0  facilities  and 
resources,  and  are  considered  priority  orders. 

b.  Major  functions  of  the  sytem  are  the  ammunition  scheduling 
model,  a  user  interface  encompassing  input  and  output  functions, 
data  base  management  and  data  storage,  report  generation,  display 
graphics,  and  intersystem  telecommunications  facilities. 

ill  The  ammunition  scheduling  model  represents  the  mam 
anal vtical  capability  of  the  system.  A  rule  based  decision  model  is 
used  to  provide  a  management  tool  to  estimate  yearly  production 
quantities  and  a  mix  of  ammunition  to  achieve  POM/budgeting  goals. 

(2)  User  interface  wiii  be  provided  through  a  master  menu 
selection  which  provides  a  set  of  hierarchical  screens  to  lead  user 
through  the  input  process  and  transform  data  into  information 
portrayed  on  output  screens. 

(3)  The  Data  Base  Management  System  (DBMS)  will  manage, 
store,  ana  retrieve  all  data  used  by  the  system. 

•'4)  Report  generation  facilities  will  provide  the 
capability  to  present  understandabl e  tabular  data  in  a  formatted 
r  e  p  o  r  t . 


T)  Graphics  facility  will  be  interactive,  flexible, 
comprehensive,  and  maintainable.  Displays  will  include  stacked  and 
grouped  bar  charts  and  pie  charts. 

(6)  Telecommunications  and  networking  capabilities  of  the 
system  will  electronically  link  the  PJSM  system  to  other  systems; 
i.e..  RLA1SA  data  base.  DSACS  system,  and  the  AEMS  system. 
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i 7)  The  'what  if'  capability  will  compute  impacts  of 
changes  to  existing  conventional  ammunition  programs  and  budgets 
based  on  varied  options,  and  quickly  evaluate  effects  of  the 
changes . 

2.2  System  Organization.  Figure  2.2-1,  titled  Current  System  F’la 
Job  Scheduling  Model,  delineates  the  system  structure.  A  list  of 
programs  and  flies  documenting  the  system  is  included  in  Annex  A. 
The  interrelationship  between  the  structure  chart  and  programs  and 
files  follows: 

a.  The  PJSM  data  base  includes  the  table  names  and  descrip¬ 
tions  displayed  below.  Detailed  data  are  presented  in  Annex  B. 


DATA  BASE  TABLES 


Table  Name 


bescr i pt ion 


REVTAB 

ITEM 

SERVICE 

PACKAGE 

FAMILY 

PLANT 

STAFF 

LINE 

GOALS 

PFSTAB 

ICT 

PRODT 

PROJECT 

PR0BT_FY 

ITEM_PATA 

RAMP_ ITEM 

RAMP_PROD 

REQTS_ ARMY 

RE0TS_0THER 

TREO 

REASON^COOE 

result! 

RESULT2 

RESULT3 

RESVLT4 

RESULT5 

RESULT6 


Revision  Table 
Cross  Reference  Table 
Service  Table 
Package  Table 
Family  Table 
Plant  Table 
Staff  Table 
Line  Table 
Goals  Table 

PDIP  Funding  Sequence  Table 

Item  Component  Table 

Production  Table 

Project  Tabie 

Production  Change  Table 

Item  Data  Table 

RAMP’  Years  Item  Table 

RAMP  Years  Production  Table 

Army  Requirements  Table 

Other  Requirements  Table 

Total  Requirements  Tabie 

Reason  Code  Table 

Army  Requirements  Output  Table 

Other  Requirements  Output  Table 

Production  Output  Tabie 

Item  Output  Table 

Summary  by  Fackage  and  Family 

Summary  by  Plant  and  Line 
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CURRENT  SYSTEM 
PLANT  JOB  SCHEDULING  MODEL 

DATA  CENTERED  -  MULTI-LEVEL  ,  INTERACTIVE 


COMPLICATED  STRUCTURE  -  EASY  TO  USE 


Figure  2.2-1.  Current  System  Structure  of  the  Plant  Job  Scheduling  Model 
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b.  The  PJSM  lUeter  Menu  is  available  through  a  utility  program 
by  that  name. 

c.  Seventeen  input  screens  are  generated  by  input  programs. 

The  RDA1SA  and  ICAPP  programs  provide  a  means  to  automatically  load 
requirements  and  unit  prices  from  other  established  data  bases. 

d.  A  communications  link  is  available  through  a  file  titled 
Data  Extract  for  AEMS. 

e.  Three  input  report  generators  provide  a  detailed  review  of 
all  input  data  in  the  data  base. 

f.  Four  screens  are  available  to  interactively  review  the 
results  of  a  study  run. 

g.  Graphics  output  reports  emanate  from  eight  graphics 
programs . 


h.  Analyses  are  performed  on  the  results  obtained  with  the 
Ammunition  Scheduling  and  Post  Processor  Models. 

1.  Systems  maintenance  is  conducted  through  utilization  of 
interactive  utility  programs. 

j.  Sample  reports  are  contained  in  Appendix  B  of  the 
Functional  Description.  PJSM  System,  ADSM  18-L62-LAT-ZZZ-FD-ATA , 
(reference  1.2a). 

2.3  Security.  The  PJSM  system  displays  information  that  is 
unclassified. 
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SECTION  3.  ENVIRONMENT 

3.1  Equipment  Environment.  A  successful  implementation  of  the  PJSM 
system  is  currently  operating  on  the  AMCCOM  PRIME  9955  Mod  2  mini¬ 
computer.  It  is  anticipated  that  this  equipment  will  allow  for 
future  enhancements. 

3.2  Support  Software.  The  operating  software  used  on  the  PRIME 
9955  Mod  2  is  PR1M0S  Release  20.0.4. 

3.3  Data  Base.  The  data  base  used  is  ORACLE,  which  is  a  vendor 
(ORACLE  CORP)  supported  Relational  Data  Base  Management  System. 

3.3.1  General  Characteristics .  The  general  characteristics  of  the 
ORACLE  data  base  are: 

a.  All  programs  in  the  PJSM  utilize  the  data  base. 

b.  All  data  are  considered  dynamic  and  can  be  updated  at 
random  intervals. 

c.  The  data  base  is  housed  on  the  PRIME  9955  Mod  2  mini¬ 
computer  . 

d.  There  are  no  limitations  on  the  use  of  this  data  base  by 
the  programs  in  the  system. 

3.3.2  Organization  and  Detailed  Descriptions.  Section  2  lists  the 
27  data  base  tables  that  are  in  the  PJSM  system.  The  first  19 
tables  are  input  tables;  table  20  is  an  intermediate  table  which 


summarizes  the  requirements;  table  21  is  an  information  table;  and 


tables  22  -  27  are  output  tables.  The  composition  of  each  table  is 
given  in  Annex  B.  Annex  C  is  a  narrative  description  of  the 
decision  flow  process  for  the  production  scheduling  model.  File 
formats  may  be  found  in  Annex  D  and  the  decision  flow  process  for 
the  post  processor  model  is  described  narratively  in  Annex  E. 
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SECTION  4.  SYSTEM  MAINTENANCE 

4 .  1  Conventions .  Conventions  commonly  used  for  the  Plant  Job 
Scheduling  Model  (PJSM)  System  are  listed  below.  Those  unique  to  a 
program  are  described  in  Section  5. 

a.  The  use  of  FORTRAN  77. 

b.  Host  variables  received  directly  from  ORACLE  tables  end 
with  a  "a‘  character  to  help  differentiate  them  from  similarily 
named  ORACLE  columns. 

4.2  Verification  Procedures.  Verification  to  check  the  performance 
of  the  PJSM  system  is  usually  done  by  a  manual  inspection,  often 
using  the  ORACLE  UFI.  UFI  is  a  program  written  by  the  ORACLE 
Corporation  for  accessing  an  ORACLE  data  base  in  an  ad  hoc  manner. 
All  of  the  SQL  statements  can  be  issued  in  UFI  and  there  are  a 
number  of  additional  UFI  commands  that  can  be  used  for  formatting 
UFI  output. 

4.3  Error  Conditions.  Errors  are  printed  in  a  COMO  or  >utput  file. 

4.4  Maintenance  Programs.  The  CPL  programs  used  to  maintain  the 
system  are  listed  below.  These  programs  are  described  in  Section  5. 


PROGRAM 


LOCATION 


PURPOSE 


JSM1 .CPL 
ARCHIVE. CPL 

VALID. CPL 

BATCH  CPL  SUBPGMS 

PJSM_MAINT.CPL 

BIND32IX.CPL 


SYSSA>SAXPGM> JSM1 .CPL 
SYSSA) SAXPGM>*PGM 

SYSSA>SAX?GM> VALID. CPL 


SYSSA>SAXPGM 

SYSSA) SAXPGM)  SDBA> 
PJSM_MAINT . CPL 
SYSSA) SAXPGM) • PS) 
BIND32IX. CPL 


JSM  Master  Menu 
Creates  backup  of  JSM 
data  tables 
External  program  for 
access  by  JSM1.CPL  and 
VALID. CPL 

Batch  CPL  subprograms 
interfacing  JSM1.CPL 
JSM  system-level  moni¬ 
toring  utilities 
Precompiles,  compiles, 
and  loads  F77  programs 


4.5  Maintenance  Procedures.  The  PJSM_MAINT . CPL  program  functions 
as  the  administrator  of  the  data  base  and  is  located  in 
SYSSA) SAXPGM) SDBA>PJ3M_MAINT . CPL . 
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SECTION  5.  PROGRAM  MAINTENANCE  PROCEDURES 

5.1  Program.  PJSM  Master  Menu  Program  (JSM1.CPL) 

5.1.1  Program  Description.  The  PJSM  Master  Menu  Program  Is  written 
in  CPL  (PRIME'S  Command  Processing  Language)  interfacing  it  with  the 
PRIME  ORACLE  Data  Base  Management  System  using  SQL. 

a.  Identification  -  The  source  code  for  the  PJSM  Master  Menu 
Program  program  is  stored  in  a  file  called  JSM1.CPL  in  the  directory 
SAXPGM. 


b.  Functions  -  This  program  is  used  for  two  purposes: 

(1)  Allow  users  access  to  the  PJSM  data  on  the  PRIME 
ORACLE  Data  Base  Management  System  by  means  of  UFI  and  IAP. 

(2)  Allow  users  access  to  various  FORTRAN  programs  which 
run  in  batch  mode  by  means  of  a  Job  statement. 


£  .*>■ 

« 


& 

$ 

* 


■S3 


vV. 


V*- 

1  -A. 


V 

V 


m 


c.  Input  -  Input  is  done  by  interactive  prompting  from 


menus . 


d.  Processing  of  Subroutines  - 
(1)  Subroutine:  Main 

(a)  Description:  Calls  the  JSM  Master  Menu. 

(b)  Screen: 


JSM  MASTER  MENU 


OPTION  NO. 


FUNCTION 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

X 


Set  up  or  modify  study  parameters 

Develop  or  alter  the  ammunition  program 

Review  or  update  input  data 

Review  output  results 

Review  graphics  outputs 

Other  data  base  procedures 

Interface  with  AEMS 

Utility  Menu 

Select  printer  destination 
Chock  job  status 
Logoff  from  PRIME 


Printer  destination  is  currently  XDISKX 


V 


5-1 


tv 

tv 
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r  I 


fi 

'l 

Vi 


i 

1 


r».i 

t 

i 

•s. 


(c)  Subroutines  accessed: 


(1_)  Set_Term_Type 


(2)  Enter  PJSM  Userid 


(3)  Main_0pt_01 

(4)  Main_0pt_02 

(5)  Main_0pt_03 

(6)  Main_0pt_04 

(7)  Main_0pt_05 

(8)  Main_0pt_06 


(9)  Printer  Dest  Menu 


( lOi  Utility_Menu 


NOTE:  Users  from  AMSMC-AP  or  programmers  have  access  to  option  '50' 
which  will  allow  the  user  access  to  the  PR1M0S  OK-level. 

(2)  Subroutine:  Main  _0pt_01 


lines  Menu. 


OPTION  NO. 


(a)  Description:  Calls  the  Review  or  Update  Guide- 


v  b )  Screen: 

REVIEW  OR  UPDATE  GUIDELINES 
FUNCTION 
Guidelines 

PDIP  funding  sequence 
Return  to  previous  menu 
Logoff 

(c)  Subroutines  accessed: 
m  Sub_i . i 
(2)  Sub  1.2 


mm 
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(3)  Subroutine:  Sub_l.l 

(a)  Description;  Calls  the  Guidelines  Screen. 

(b)  ORACLE  Filename:  GUID_1.FRM 

(c)  Location:  SAXPGM>iINP 

(d)  Execution  Mode:  View/Update  ORACLE  Screen 

(4)  Subroutine:  Sub_1.2 

(a)  Description:  Calls  the  PDIP  Funding  Sequence 

Screen . 

(b)  ORACLE  Filename:  PACK3.FRM 

(c)  Location:  SAXPGM>#INP 

(d)  Execution  Mode:  View/Update  ORACLE  Screen 

15)  Subroutine;  Main_0pt_02 

la)  Description:  Calls  the  Ammunition  Program  Menu, 

(b)  Screen. 

AMMUNITION  PROGRAM  MENU 


OPTION  NO. 


FUNCTION 


1  Run  Production  Scheduling  program 

2  Screen  for  review  or  update  of  output  results 

3  Run  program  to  modify  output  results 

R  Return  to  previous  menu 

X  Logoff 

(cl  Subroutines  accessed: 


m  Sub_2 . 1 
(2!  Sub_2 . 2 
(3)  Sub_2 . 3 


v-va  %  -yy;^ .  j 
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(6) 

Subroutine:  Sub_2.1 

ing 

Program. 

(a) 

Description:  Calls  the 

Run  Production  Schedul 

PS. 

FLAG,  DISK. 

(b) 

Input  Variables: 

USER, 

PSWD.  RCN, 

TREQ . FLAG , 

(c) 

Source  Languages: 

CPL, 

FORTRAN. 

(d) 

ORACLE  Filename: 

PS. CPL,  PS. FOR. 

(e) 

Location:  SAXPGMXPS. 

If) 

Execution  Mode: 

Batch 

processing . 

(7) 

Subroutine:  Sub_2.2 

(a) 

Description:  Calls  the 

screen  for 

review  or 

update  of  output  results. 


(b)  ORACLE  Filename:  RSLT_CHG. FRM. 

(c)  Location:  SAXPGM>iINP. 

(d)  Execution  Mode:  View/update  ORACLE  screen. 

(8)  Subroutine:  Sub_2.3 

(a)  Description:  Calls  the  run  program  to  modify 
Output  Results  Program. 

(b)  Input  Variables:  USER,  PSWD.  RCN ,  RES_CHANGE , 

DISK. 

(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  JSM. RERUN . CPL ,  JSM. RERUN . FOR 

(e)  Location:  SAXPGM)APGM. 


(f)  Execution  Mode:  Batch  processing. 
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(9)  Subroutine:  Main_0pt_03 


Data  Menu. 


OPTION  NO. 

1 

2 

3 

4 

5 

R 

X 


(a)  Description:  Calls  the  Review  or  Update  Input 


( b )  Screen: 

REVIEW  OR  UPDATE  INPUT  DATA 
FUNCTION 

Screens  for  review  or  update 
Generate  reports 
Spool  reports 

Update  requirements  with  new  RDAISA  data 

Update  unit  prices  and  other  customer  requirements 

with  new  ICAPP  data 

Return  to  Main  Menu 

Logoff  from  PRIME 

(c)  Subroutines  accessed: 


<n 

Sub_3 . 1 

(2) 

Sub_3 . 2 

(3) 

Sub_3.3  (Not  yet  available) 

(4) 

Sub_3 . 4 

(5) 

Sub_3 . 5 

Subrout 

me  :  Sub  3  .  1 

(a)  Description:  Calls  the  IAP  screens  for  review 
and/or  update  to  Input  Data  Menu. 

(b)  Screen: 

SCREENS  FOR  REVIEW  AND/OR  UPDATE  TO  INPUT  DATA 


OPTION  NO. 


FUNCTION 


1 

2 

3 

4 

5 


I  tern  descriptors 

Item  planning  parameters 

Item  production  capacity/staffing 

General  plant  data 

Primary  component  information 


J  .*  V  /  /  u*  -  » 
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FUNCTION 

Yearly  consumption  requirements 
Production  project  specifications 
Army  requirements  strati f ication 
Other  customer  requirements-orders 
Secondary  component  information 
Line  descriptors 

Update  or  display  Army  requirements 

Update  or  display  Other  Service  requirements 

DODIC/pro ject  cross-reference 

RAMP  item 

RAMP  production 

Return  to  previous  menu 

Logoff  from  PRIME 

(c)  ORACLE  Filenames: 


OPTION  NO. 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
R 
X 


JSM_1 . FRM 
JSM6 . FRM 
JSM_ 1 1 . FRM 
JSM_ 16 . FRM 


Menu . 


OPTION  NO. 

1 

2 

3 

R 

X 


JSM_2 . FRM 
JSM~7 . FRM 
JSM_ 12 . FRM 


JSM_3 . FRM 
JSM~8 . FRM 
JSM_ 13 . FRM 


FUNCTION 


JSM_4 . FRM 
JSM_9 . FRM 
JSM_ 1 4 . FRM 


JSM_5 . FRM 
JSM_10 .FRM 
JSM_ 15 . FRM 


Reports  for  input  data  by  item 
Reports  for  input  data  by  table 
Reports  for  input  data  by  revision 
Returns  to  previous  menu 
Logoff  from  PRIME 


(d)  Location:  SAXPGM>*INP 
(11)  Subroutine:  Sub_3.2 

(a)  Description:  Calls  the  reports  for  Input  Data 


(b)  Screen: 

REPORTS  FOR  INPUT  DATA 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(cl  Subroutines  accessed: 
m  Sub_3 .2.1 

(2)  Sub_3 .2.2 

(3)  Sub_3.3.3  (Not  yet  available) 

(12)  Subroutine:  Sub_3.2.1 

(a)  Description:  Calls  the  reports  for  Input  Data 

by  Item  program. 

(b)  Input  Variables:  USER,  PSWD,  RCN1 ,  RCN2 , 

1 1 D 1 ,  IID2,  PID1 ,  PID2.  DISK. 

(c)  Source  Lanuages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  IDP.CPL,  IIDR.FOR,  PDIR.FOR. 

(e)  Location:  SAXPGM>$PGM. 

(f)  Execution  Mode:  Batch  processing. 

(13)  Subroutine:  Sub_3.2.2 

(a)  Description:  Calls  the  Create  Input  Data 
Report  by  Table  Name  Menu.  This  subroutine,  given  the  Table  Name, 
will  call  the  LISTT  external  program. 


(b)  Screen: 


*91 

tjl'jj 

Hi 

Ki 


CREATE  INPUT  DATA  REPORT  BY  TABLE  NAME 


Available  ORACLE  tables  are: 


FAMILY 

PACKAGE 

RAMP_ITEM 

RESULT2 

SERVICE 

GOALS 

PFSTAB 

RAMP_PR0D 

RESULT3 

STAFF 

ICT 

PLANT 

REAS0N.C0DE 

RESULT4 

TREQ 

ITEM 

PRODT 

REQTS.ARMY 

RESULT5 

ITEM_DATA 

PROD_FY 

REQTS_OTHER 

RESULT6 

LINE 

PROJECT 

RESULT  1 

REVTAB 

(c)  Input  Variables:  COLUMN,  TABLE_NAME ,  USER, 
PSWD,  RCN,  UFD ,  DISK. 

(d)  Source  Languages:  CPL. 


i 

9 
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(e)  ORACLE  Filename:  LISTT.CPL. 

(f)  Location:  SAXPGM>«PGM. 

(g)  Execution  Mode:  Batch  processing. 

(14)  Subroutine:  Sub_3.4 

(a)  Description:  Calls  the  Update  Requirements 
with  New  RDAISA  Data. 

(b)  Input  Variables:  USER.  PSWD,  FY.  NEW.  FILE1, 

FILE2 ,  DISK. 

(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  PKG.CPL,  PKG.FOR. 

(e)  Location:  SAXPGM>*PGM. 

(f)  Execution  Mode:  Batch  processing. 

(15)  Subroutine:  Sub_3.5 

(a)  Description:  Calls  the  update  unit  price  and 
other  customer  requirements. 

(b)  Input  Variables:  USER,  PSWD,  FY,  LOC ,  YRS , 

ICAPP . FLAG ,  FILE1 .  FILE2 ,  DISK. 

(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  ICAPP. CPL,  ICAPP. FOR. 

(e)  Location:  SAXPGM>»PGM. 

(f)  Execution  Mode:  Batch  processing. 

(16)  Subroutine:  Main_0pt_04 

(a)  Description:  Calls  the  Review  Output  Data 

Menu. 


5-8 
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OPTION  NO. 

1 

2 

3 

R 

X 


(b)  Screen: 

REVIEW  OUTPUT  DATA 
FUNCTION 

Screens  for  review  output  data 
Generate  reports 
Spool  reports 
Return  to  previous  menu 
Logoff  from  PRIME 

(c)  Subroutines  accessed: 


m 

Sub_4 .  1 

(2) 

Sub_4 . 2 

I 

& 


w 


$ 


. 


'  A 


v- 


( 17) 


(3)  Sub_4 . 3 
Subroutine:  Sub  4.1 


(a)  Description:  Calls  the  IAP  screens  for 
reviewing  output  data  menu. 


OPTION  NO. 


(b)  Screen: 

SCREENS  FOR  REVIEWING  OUTPUT  DATA 
FUNCTION 


1 

2 

3 

4 
R 
X 


Army  requirement  allocation 

Other  customer  requirement  allocation 

Production  summary 

Item  summary 

Return  to  previous  menu 

Logoff  from  PRIME 


(c)  ORACLE  Filename:  RESULT  1 . FRM,  RESULT2 . FRM, 
RESULT3 . FRM,  RESULT4 . FRM. 


(d)  Location:  SAXPGM>*INP. 

(e)  Execution  Mode:  View  ORACLE  screen. 


5-9 
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(18)  Subroutine:  Sub_4.2 

(a)  Description:  Calls  the  Generate  Output 
Reports  Menu.  This  subroutine  calls  the  external  program  NRPT  for 
the  selection  number  chosen. 

(b)  Screen: 

GENERATE  OUTPUT  REPORTS 


OPTION  NO. 


FUNCTION 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
R 
X 


ARMY  P-1  report 

Workload  summary  report  by  item 

Plant  workload  utilization 

Plant  workload  summary 

Item  analysis  worksheet 

PDIP  summary  report 

Comparison  report 

Items  not  acheiving  100% 

Readiness  factor 

Other  service  buys  by  item  -  exception  report 
PDIP  package  structure  by  item 
PDIP  cost  report 

Additional  workload  required  to  reach  90%  baseline 

Secondary  item  status  report 

Summary  of  package  requirements/filled 

Conventional  ammunition  acquisition  plan 

Return  to  previous  menu 

Logoff  from  PRIME 


(c)  Input  Variables:  USER,  PSWD,  RPT,  RCN1 ,  RCN2, 

OPT,  DISK. 

(d)  Source  Languages:  CPL,  FORTRAN,  RPT. 

(e)  ORACLE  Filename:  NRPT. CPL,  RPT' *1' .FOR, 
RPT’SI’.RPT,  where  *1  is  the  menu  option  number  for  reports  1  -  16. 


(f)  Location:  SAXPGM>fRPT. 


(g)  Execution  Mode:  Batch  processing. 
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C19)  Subroutine:  Sub_4.3 

(a)  Description:  Calls  the  Spool  Output  Reports 
Menu.  This  subroutine  spools  the  external  file  RPT.*. RCN  for  the 
selection  number  chosen.  These  files  are  located  in  SAXJSM>#OUT. 

(b)  Screen: 

SPOOL  OUTPUT  REPORTS 

FUNCTION 


ARMY  P-1  report 

Workload  summary  report  by  item 
Plant  workload  utilization 
Plant  workload  summary 
Item  analysis  worksheet 
PDIP  summary  report 
Comparison  report 
Items  not  acheiving  100% 

Readiness  factor 

Other  service  buys  by  item  -  exception  report 
PDIP  package  structure  by  item 
PDIP  cost  report 

Additional  workload  required  to  reach  90%  baseline 
Secondary  item  status  report 
Summary  of  package  requirements/filled 
Conventional  ammunition  acquisition  plan 
Return  to  previous  menu 
Logoff  from  PRIME 

(c)  Input  Variables.  USER,  PSWD,  RPT ,  RCN1,  RCN2 , 

(d)  ORACLE  Filename:  RPT’ *  1’ . RCN’ *2 ' ,  where  *1  is 

the  menu  option  number  for  reports  1  -6,  8  -  16  and  *2  is  the  RCN 

or  RPT7 . ' *2 ' _VS_’ *3 ’ ,  where  #2  is  the  RCN  for  report  7  and  *3  is  the 

alternative  RCN. 

(e)  Location:  SAXJSM>*0UT. 

(f)  Execution  Mode:  Spooling  text  file. 

(20)  Subroutine:  Main_0pt_05 

(a)  Description:  Calls  the  Graphs  Menu. 


OPTION  NO. 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
R 
X 


OPT,  DISK. 
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(b)  Screen: 


GRAPHS 


•i 

*»' 

'k 


OPTION  NO. 


I 


cedures  Menu. 


OPTION  MO. 


FUNCTION 

Financial  charts 
Workload  charts 
Return  to  previous  menu 
Logoff  from  PRIME 

(c)  Subroutines  accessed: 


(X)  Subw5 . 1  (Not  yet  available) 
12]  Sub_5.2  (Not  yet  available) 


(21)  Subroutine:  Main_0pt_06 


(a)  Description:  Calls  the  Other  Data  Base  Pro- 


(b)  Screen: 

OTHER  DATA  BASE  PROCEDURES 
FUNCTION 

Change  temporary  DODAC  to  new  DODAC 

Delete  DODIC  from  the  data  base 

Run  data  base  integrity  check 

Copy  revisions  from  one  study  to  next 

Make  revisions  a  permanent  part  of  baseline 

Archive  data  base 

Delete  a  study  run  from  the  data  base 
Delete  output  reports  for  a  study  run 
Dump  input  tables  for  a  study  run 
Run  alternate  priority  program 
Return  to  previous  menu 
Logoff  lrom  PRIME 


i 

'I 

V 

s 

*1 

i 


(c)  Subroutines  accessed: 


(1)  Sub  6. 1 


(2)  Sub  6.2 
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Q 


IV 


(3) 

(i) 

(5) 

(6) 

(7) 

(8) 
(9) 


Sub_6 . 3 
Sub_6 . 4 
Sub_6 . 5 
Sub_6 . 6 
Sub_8 . 7 
Sub_6 . 8 
Sub  6.9 


(10.)  Sub_6 .  10 

(22)  Subroutine:  Sub_6.1 

(a)  Description:  Changes  temporary  DODAC  to  new 
DODAC.  This  program  accesses  Oracle  to  modify  the  following  tables: 
ICT,  ITEM,  PRODT ,  PRODT.FY,  ITEM_DATA,  RAMP  ITEM,  RAMP_PROD , 
REQTS_ARMY ,  REQTS_OTHER,  TREQ ,  RESULT  1,  RESULT2 ,  RESULT3 ,  RESULT4 . 


NEW  DODIC. 


(b)  Input  Variables:  OLD_FSC,  OLD_DODIC,  NEW_FSC , 

(b)  Execution  Mode:  On-line  ORACLE  processing. 

(23)  Subroutine:  Sub_6.2 

(a)  Description:  Deletes  a  DODIC  from  the  data 
base.  All  information  for  that  DODIC  is  stored  in  a  file  named 
’DODIC’. LIS  in  SAXPGMXDEL.  After  that,  any  reference  to  the  PJSM 
tables  to  that  DODIC  is  removed  from  the  data  base. 

(b)  Input  Variables:  Fsc,  DODIC. 

(c)  ORACLE  Filename:  'DODIC'. LIS,  where  DODIC  is 
the  name  of  a  DODIC  which  was  removed  from  the  data  base. 

(d)  Location:  SAXPQMXDEL. 

(e)  Execution  Mode:  On-line  ORACLE  processing. 

(24)  Subroutine:  Sub_6.3 

(a)  Description:  Runs  the  Data  Base  Integrity 

Check  Program. 


5-13 


.Vi 

i 
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(b)  Input  Variables:  USER,  PSWD,  DISK. 

(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  BASECHK .CPL ,  BASECHK.FOR 

(e)  Location:  SAXPGM>IPGM. 

(f)  Execution  Mode:  Batch  processing. 

(25)  Subroutine:  Sub_6.4 

(a)  Description:  Copy  revisions  from  one  study  to 
next.  This  program  copies  information  from  a  given  RCN  to  another 
RCN  for  one/all  of  the  following  tables:  GOALS,  ITEM  DATA,  PFSTAB , 
PRODT_FY ,  REQTS.ARMY,  REQTS_0THER . 


NEW_RCN,  DISK. 


(b)  Input  Variables:  USER,  PSWD,  TNAME,  0LD_RCN, 


(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  CREV.CPL,  CREV.FOR 


(e)  Location:  SAXPGM>*PGM. 


batch  processing. 


(f)  Execution  Mode:  On-line  ORACLE  processing  and 


i 

t. 

§ 


(26)  Subroutine:  Sub_6.5 

(a)  Description:  Calls  the  Run  Extract  Program. 
This  program  copies  information  from  a  given  RCN  to  the  baseline, 
RCN  =  0,  for  one/or  all  of  the  following  tables:  GOALS,  ITEM_DATA, 
PFSTAB,  PR0DT_FY,  REQTS_ARMY,  REQTS.OTHER. 


DISK. 


(b)  Input  Variables:  USER,  PSWD,  TNAME,  0LD_RCN , 


(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename:  CREV.CPL,  CREV.FOR. 


(e)  Location:  SAXPGMifPGM. 


<f)  Execution  Mode:  Batch  processing. 


mmmm 


mmsM>  urna* 
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(27)  Subroutine:  Sub_6.6 

(a)  Description:  Archive  Data  Base.  This  program 
takes  the  data  from  a  table  and  makes  a  backup  copy  of  it  under  a 
new  name  for  a  PJSM  user.  This  program  also  makes  a  backup  copy  of 
all  the  PJSM  tables,  so  that  it  may  be  captured  by  the  daily  tape 
backup  procedure  done  by  the  computer  operators. 

(b)  Tables  operated  on:  REVTAB,  ITEM,  SERVICE, 
FAMILY,  PLANT,  STAFF,  LINE,  GOALS,  PFSTAB ,  ICT,  PRODT ,  PROJECT, 
PR0DT_FY ,  ITEM_DATA,  RAMP_ITEM,  RAMP_PR0D ,  REQTS_ARMY ,  REQTS_0THER , 
TREQ ,  PACKAGE;  and  all  or  none  of  RESULT  1,  RESULT2 ,  RESULT3 , 

RESULT4 ,  RESULT5 ,  RESULT6 . 


RCN,  TNAME,  DISK, 

(c) 

,  SUB. 

Input  Variables: 
UFD. 

USER,  PSWD,  D_FLAG,  R_FLAG , 

(d) 

Source  Languages: 

CPL . 

(e) 

ORACLE  Filename: 

ARCHIVE. CPL. 

(f ) 

Execution  Mode: 

Batch  processing. 

(g)  Data  Filename:  ’Table_Namel’_SAVE.DMP  or 
' Table_Name2 ' _RCN* . DMP ,  where  Table_Namel  is  a  non-RESULT  table, 
Table_Name2  is  a  RESULT  table,  and  *  is  a  RCN  number. 

<h) 

Program  Location: 

SAXPGMXPGM. 

(i) 

Data  Destination: 

SAXJSMXDMP.  [today’s  date] 

for  PJSM  user  SAXPGM)*DAILY_BKUP  for  daily  tape  backup. 

NOTE:  This  program  is  to  be  modified  only  by  the  Data  Base  Adminis¬ 
trator.  An  RCN  =  666  returns  user  to  the  previous  menu  after  an 
invalid  response. 

(28)  Subroutine:  Sub_6 . 7 

(a)  Description:  Delete  a  study  run  from  the  data 
base.  This  program  gives  the  user  the  ability  to  delete  from  ORACLE 
all  data  for  a  given  RCN,  all  the  RESULT  tables  (RESULT  1  -  6) ,  or 
from  any  of  these  tables:  REVTAB,  ITEM,  SERVICE.  FAMILY,  PLANT, 
STAFF,  LINE,  GOALS,  PFSTAB,  ICT,  PRODT,  PROJECT,  PR0DT_FY,  ITEM_DATA , 
RAMP_ITEM,  RAMP_PR0D ,  REQTS_ARMY ,  REQTS_0THER,  TREQ,  PACKAGE;  and 
all  or  none  of  RESULT  1 ,  RESULT2 ,  RESULT3 ,  RESULT4 ,  RESULT5 ,  RESULT6 . 

(b)  Input  Variables:  RCN,  R_FLAG,  I_FLAG,  TNAME . 


ADSM  18-L62-LAT-ZZZ-MM- 2604 
30  November  1987 


(c)  Source  Languages:  UFI. 

(d)  Execution  Mode:  On-line  ORACLE  processing. 

(29)  Subroutine:  Sub_6.8 

(a)  Description:  Delete  output  reports  for  a 
study  run.  This  program  deletes  all  the  reports  for  a  given  study 
(RCN)  for  all  of  the  RESULT  tables. 

(b)  Input  Variables:  RCN. 

(c)  Source  Languages:  PR1M0S. 

(d)  ORACLE  Filename:  PPT1.RCN*,  RPT2.RCN* , 
RPT3.RCN*,  RPT4.RCN*,  RPT5.RCN*.  RPT6 . RCN# . 

(e)  Location:  SAXPGM>*OUT. 

(f)  Execution  Mode:  On-line  PR1MOS  processing. 

(30)  Subroutine:  Sub_6.9 

(a)  Description:  Dump  input  tables  for  a  study 
run.  A  copy  of  the  input  tables  (REVTAB,  STAFF,  GOALS,  PFSTAB , 
PR0DT_FY ,  ITEMJ)ATA,  modified  REQTS_ARMY,  REQTS_0THER)  is  created, 
spooled,  and  then  deleted. 

(b)  Input  Variables:  RCN. 

(c)  Source  Languages:  UFI. 

(d)  ORACLE  Filename:  DMP.RCN‘RCN«‘ 

(e)  Location:  SAXPGM>tOUT. 

(f)  Execution  Mode:  On-line  ORACLE  processing. 

(31)  Subroutine:  Sub_6.10 

(a)  Description:  Run  Alternate  Priority  program 

(b)  Input  Variables:  USER,  PSWD. 

(c)  Source  Languages:  CPL,  FORTRAN. 

(d)  ORACLE  Filename;  APS. CPL,  APS. FOR. 
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(e)  Location:  SAXPGM>*PGM. 

(f)  Execution  Mode:  Batch  processing. 

(32)  Subroutine:  Main_0pt_07 

(a)  Description:  Calls  the  AEMS  Menu.  This  pro¬ 
cedure  spools  reports  (SSNDODAC.DOC,  DATAC0MP.DAT,  or  SSNDELTA.TXT) 
in  UFD  DCSRDA  or  calls  Subroutine  Sub  7.2. 


(b)  Screen: 


OPTION  NO. 


AEMS  MENU 


FUNCTION 


1  Spool  DCSRDA's  SSN/DODAC  cross  reference  list 

2  Run  extract  program 

3  Spool  output  of  the  extract  program 

4  Spool  DCSRDA's  comparison  text 

R  Return  to  previous  menu 

X  Logoff  from  PRIME 

(c)  Subroutines  accessed: 
m  Sub_7 . 1 

(2)  Sub_7 . 2 

(3)  Sub_7 . 3 

(4)  Sub_7 . 4 

(33)  Subroutine:  Sub_7 . 1 

(a)  Description:  Calls  the  Spool  DCSRDA’s  SSN/ 
DODAC  cross  reference  list. 

(b)  Program  Input  Variables:  DISK. 

(c)  ORACLE  Filename:  SSNDODAC.DOC. 

(d)  Location:  DCSRDA. 

(e)  Execution  Mode:  Spooling  text  file. 
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(34)  Subroutine:  Sub_7.2 

(a)  Description:  Calls  the  Run  Extract  Program. 

(b)  Input  Variables:  USER.  PSWD,  BFY ,  NFY ,  DISK. 

(c)  Source  Languages:  CPL,  FORTRAN 

(d)  ORACLE  Filename:  AEMS.CPL,  AEMS.FOR. 

(e)  Location:  SAXPGM>*PGM. 

(35)  Subroutine:  Sub_7.3 

(a)  Description:  Calls  the  spool  output  of  the 

extract  program. 

(b)  Input  Variables:  DISK. 

(c)  ORACLE  Filename:  DATACOMP.DAT. 

(d)  Location:  DCSRDA. 

(e)  Execution  Mode:  Spooling  text  file. 

(36)  Subroutine:  Sub_7.4 

(a)  Description:  Calls  the  Spool  DCSRDA's  Compar¬ 
ison  Text  Program. 

(b)  Input  Variables:  DISK. 

(c)  ORACLE  Filename:  SSNDELTA.TXT. 

(d)  Location:  DCSRDA. 

(e)  Execution  Mode:  Spooling  text  file. 

(37)  Subroutine:  Utility_Menu 

(a)  Description:  Calls  the  Utility  Menu. 


J 
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(b)  Screen: 

JOB  SCHEDULING  MODEL  UTILITY  MENU 

OPTION  NO.  FUNCTION 

UFI  Utility 
IAP  screens 
Output  screens 
Precompile/run  F77 
PRIMOS  commands 
Reset  terminal  type 
Full  screen  editor 
Return  to  Main  Menu 
Logof f  from  PRIME 

(c)  Subroutines  accessed: 

(1)  Run_UFI 

(2)  IAP_Screens 

(3)  Precomp_Run 
(4'  PRlMOS_Commands 

(5)  Reset_Terminal_Type 

(6)  Full_Screen 
(38)  Subroutine:  Main_0pt_09 

(a)  Description:  Calls  the  List  of  Available 
Printer  Locations  Menu.  This  subroutine  initializes  the  variable 
disk  so  it  may  be  used  to  establish  the  output  destination. 

(b)  Screen: 


LIST  OF 

AVAILABLE 

PRINTER  LOCATIONS 

SYSSA 

SYS  104 

SYS1 10 

SYSSEC 

SYSSEN 

SYS056 

SYS090 

SYS  1 03 

SYS062 

SYS390 

SYS103 

SYS062 

SYS390 

SYSCAP 

SYS350 

SYSDP 

SYS060 

SYSMS 

SYSDDN 

JYSENG 

(c)  Execution  Mode:  On-line  PRIMOS  CPL  routine. 


1 

2 

3 

4 

5 

6 
7 
R 
X 


m 
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if 
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(39)  Subroutine:  Main_0pt_10 

(a)  Description:  Allows  user  to  check  the  status 
of  any  PRIME  batch  jobs  that  he/she  has  submitted. 

(b)  Variables  Accessed:  JOBID. 

(c)  Execution  Mode:  On-line  PR1M0S  CPL  routine, 
e.  Processing  of  Programs  - 

(1)  Program:  Run_UFI 

(a)  Description:  This  routine  allows  user  to  call 
up  the  ORACLE  command  UFI . 

(b)  Source  Languages:  ORACLE. 

(c)  Execution  Mode:  On-line  PRIME  ORACLE  routine. 

(2)  Program:  IAP_Screens 

(a)  Description:  This  routine  allows  user  to  call 
up  any  of  the  screens  in  SAXPGM>*INP  using  ORACLE'S  IAP. 

(b)  Input  Variables:  SCREEN. 

(c)  Source  Languages:  ORACLE. 

(d)  Location:  SAXPGM>*INP. 

(e)  Execution  Mode:  On-line  PRIME  ORACLE  routine. 

(3)  Program:  Precomp_Run 

(a)  Description:  This  routine  allows  user  to  pre- 
compile  a  FORTRAN/ORACLE  program. 

(b)  Input  Variables:  FILE,  USER,  PSWD 

(c)  Source  Languages:  CPL. 

(d)  ORACLE  Filename;  BIND32IX. CPL . 


(e)  Location: 


SAXPGM>*PS . 


(f)  Execution  Mode:  On-line  PR1MOS  CPL  routine. 


wm mm* 
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(4)  Program:  PRlMOS_Commanda 


(a)  Description:  This  routine  allows  user  access 
to  PRIMOS  and  then  back  to  the  JSM  Menu  system  if  a  blank  line  is 
returned . 


(b)  Execution  Mode:  Cn-Iire  PRIMOS  CPL  routine. 


(5)  Program:  Full_Screen 


(a)  Description:  This  routine  allows  user  access 
to  AEDIT,  a  full-screen  editor  available  on  PRIME. 


(b)  Execution  Mode:  On-line  PRIMOS  CPL  routine. 


(6)  Program:  Break_Handler 


(a)  Description:  The  default  definition  of  the 
break  key  has  been  disabled.  This  was  done  so  that  the  PJSM  user 
cannot  return  to  PRIMOS  when  the  break  key  is  pressed.  Everytime  the 
break  key  is  pressed,  a  message  will  appear  on  the  screen  indicating 
that  the  break  key  has  been  disallowed.  If  the  user  depresses  the 
break  key  a  third  time  he/she  is  automatically  logged  off  of  PRIME. 
This  logged  out  information  is  stored  in  the  directory 
SAXPGMXDBAXLOGIN . 


(b)  Variables  Accessed:  Break_Count. 

1c)  Execution  Mode:  On-line  PRIMOS  CPL  routine. 


NOTE:  This  routine  is  accessed  as  an  On-unit  on  every  subroutine  in 
this  program. 


(7)  Program:  Error_Handler 


(a)  Description:  This  program  displays  a  message 
on  the  screen  to  call  AMSMC-AP  when  an  error  condition  would  occur. 
These  errors  might  occur  if  there  is  a  system-fault  or  if  the  PJSM 
has  ran  out  of  disk  space. 


(b)  Execution  Mode:  On-line  PRIMOS  CPL  routine. 


NOTE:  This  routine  is  accessed  as  an  On-unit  on  every  subroutine  in 
this  program. 


5-21 
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(8)  Program:  Set_User 

(a)  Description:  This  routine  queries  the  user  for 
his/her  PJSM  userid.  This  is  stored  in  a  variable  called  'USER'. 

The  variables  ’USES'  and  'PSWD’  are  later  sent  to  a  CPL  program 
called  ’VALID. CPL'  located  at  SAXPGM  in  order  to  verify  if  this  user 
has  a  valid  ORACLE  account.  See  program  ’ B,MTEP._PJSM_USEEID ’  . 

(b)  Variables  Accessed:  User. 

(c)  Execution  Mode:  On-line  PR1M0S  CPL  routine. 

(9)  Program:  Set_PSWD 

(a)  Description:  This  routine  queries  the  user  for 
his/her  PJSM  password.  This  is  stored  in  a  variable  called  ’PSWD’. 
The  variables  ’USER’  and  ’PSWD’  are  later  sent  to  a  CPL  program 
called  'VALID. CPL'  located  at  SAXPGM  in  order  to  verify  if  this  user 
has  a  valid  ORACLE  account.  See  program  ’ENTER_PJSM_USERID’ . 

(b)  Variables  Accessed:  PSWD. 

(c)  Execution  Mode:  On-line  PR1MOS  CPL  routine. 

(10)  Program:  Set_Term_Type 

(a)  Description:  This  routine  queries  the  user 
for  the  type  of  terminal  he/she  is  using.  This  is  stored  in  a 
variable  called  ’TERM_TYFE’.  This  information  is  needed  by  PRIME 
ORACLE’S  IAF  so  that  the  PJSM  data-entry  and  verification  screens 
can  operate  for  different  terminal  types. 

(b)  Variables  Accessed:  Term_Type. 

(c)  Execution  Mode:  On-line  PR1M0S  CPL  routine. 

(d)  Valid  Terminal  Types: 


HDS 

VT100 

VT100_UL 

PST100 

PT200 

PT45 

V500 

PC-ORACLE 

XTALK 


Human  Design  Systems  terminal  emulator 
Dec  VT100  terminal  emulator 
Alternate  Dec  VT100  terminal  emulator 
PRIME  PST100  terminal  emulator 
PRIME  PT200  terminal  emulator 
PRIME  PT45  terminal  emulator 

Visual  500  terminal  emulator/Dec  VT52  terminal  emulator 
PC  communicating  with  ORACLE  ORALINK  communications 
package 

PC  communicating  with  Crosstalk  communications  package 
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NOTE:  If  a  user  enters  ’HELP’  or  'H' ,  a  list  of  allowable  terminal 
types  would  appear  on  the  terminal  screen. 

(11)  Program:  Enter_Pjsm_Userid 

(a)  Description:  This  routine  calls  up  an  exter¬ 
nal  program  which  checks  if  he/she  is  using  a  valid  ORACLE  Userid/ 
Password.  The  external  program  is  SAXPGM) VALID . CPL . 

(b)  Variables  Accessed: 

H)  Term_Type 

(2)  User 

(3)  PSWD 

(4)  Sub_UFD 

(c)  Execution  Mode:  On-line  PR1MOS  CPL  routine. 

(12)  Program:  Pause 

(a)  Description:  Displays  message  on  terminal 
when  a  job  has  been  submitted  to  the  batch  queue. 

(b)  Program  referred:  Sub_2.1,  Sub  2.3, 

Sub_3 .2.1,  Sub_4 . 2 ,  Sub_fl.3,  Sub_6.6,  Sub_6.10,  Sub_6.11,  Sub_7.2. 

(c)  Execution  Mode:  On-line  PR1MOS  CPL  routine. 


(13)  Program:  Pausel 

(a)  Description:  This  program  enters  a  programmed 
loop  which  suspends  any  useful  programming  for  approx i mated ly  two 
seconds.  This  little  utility  is  used  by  other  programs  so  that  a 
PJSM  user  may  see  output  on  his/her  screen  before  the  screen  is 
cleared  of  any  information  when  going  to  the  previous  menu. 

(b)  Program  referred:  Sub_5.1,  Sub_5.2, 

Main_0pt_10 . 

(c)  Variables  Accessed: 


( 1 )  Time 


(2)  New  Time 
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(d)  Execution  Mode:  On-line  PR1M0S  CPL  routine. 

f.  Output  -  N/A 

Security  -  The  PJSM  Matter  Menu  Program  works  with  infor¬ 
mation  which  is  unclassified. 

h.  Interfaces  -  This  CPL  program  intefaces  with  the  PJSM 
tables  on  PRIME  ORACLE  through  UFI  and  with  other  CPL  programs. 

i.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 


REVTAB 

PLANT 

ICT 

RAMP  ITEM 


RESULT 1 
RESULT! 


(1)  Data  tables: 

ITEM  SERVICE 

STAFF  LINES 

PRODT  PROJECT 

RAMP_PR0D  REQTS.ARMY 

(b)  Result  tables: 


PACXAGE 
GOALS 
PROD  FT 
REQTS  OTHER 


FAMILY 
PFSTAB 
ITEM  DATA 
TREQ 


RESULT2 

RESULTS 


RESULT3 

RESULTS 


5.1.2  Conventions.  N/A 


5.1.3  Verification  Procedures.  N/A 


5.1.4  Error  Conditions.  N/A 


5.1.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM>JSM1 .CPL. 
A  hard  copy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.2  Program.  PJSM  Table  Export  Program  (ARCHIVE. CPL) 

5.2.1  Program  Description.  Tha  PJSM  Tabla  Export  Program  is 
written  in  CPL,  interfacing  it  with  tha  PRIME  ORACLE  Data  Base 
Management  System  using  SQL. 

a.  Identification  -  Tha  source  code  for  the  PJSM  Table 
Export  Program  is  stored  in  a  file  called  ARCHIVE. CPL  located  in  the 
directory  SAXPGM>*PGM. 

b.  Functions  -  This  program  is  used  for  two  purposes: 

(1)  A  PJSM  user  can  export  a  PJSM  table  for  a  given 
study  into  a  directory  called  SAXJSM>iDMP. [today’s  date],  where 
today's  date  is  YYMMDD. 

(2)  The  backup  of  all  the  PJSM  tables  on  a  daily  basis. 
This  is  done  by  exporting  all  tha  tables. 

c.  Input  - 

(1)  Through  JSM  menu,  user  automatically  submits  the 
following  batch  information: 

(a)  ORACLE  identification  (USER). 

(b)  Password  (PSWD) . 

(c)  Data  table  flag  (D_FLAG) . 

(d)  Result  table  flag  (R_FLAG) . 

(e)  RCN. 

(f)  Tablename  (THAME) . 

(g)  Destination  for  reports  to  be  spooled  (DISK) . 

(h)  Subdirectory  location  where  export  is  to  be 
stored  (SUB-UFD) . 

(i)  Daily  backup  flag. 

Setup  for  PJSM  user  (Batch  job)  -  referenced  by  SAXPGMXJSM1 .CPL  - 
Job  SAXPGM>IPGM> ARCHIVE  -HO  SAXJSM>XSUB_UFDX  -QUEUE  Q2  -ARGS  XUSERX 
XPSWDX  XD  FLAGX  XR  FLAGX  XRCNX  XTNAMEX  XDISKX  XSUB  UFDX  N. 


a 
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(2)  Through  the  daily  backup  program,  this  program  is 
called  a  SYSTEM  phantom  that  runs  at  2200  daily. 

Setup  for  Daily  Backup  (Phantom)  -  referenced  by  SYSTEM>PROCEDURE- 
UFD>SQ.CPL  -PH  SAXPGM>$PGM> ARCHIVE  %USER%  5CPSWDX  Y  Y  99  ALL  SYSSA 
SAXPGM  Y. 


d.  Processing  -  A  copy  of  the  table  requested  is  made. 
These  tables  are  exported  and  then  dropped.  A  PJSM  user  is  given 
the  ability  of  exporting  all  of  the  RESULT  tables  for  a  given  RCN 
and/or  the  ability  of  exporting  TREQ  for  a  given  RCN. 

e.  Output  -  N/A. 

f.  Security  -  The  PJSM  Table  Export  Program  works  with 
information  which  is  unclassified. 

g.  Interfaces  -  This  CPL  program  interfaces  with  the 
PJSM  tables  on  PRIME  ORACLE  through  UFI . 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 


(a)  From  data  tables: 


REVTAB 

PLANT 

ICT 

RAMP  ITEM 


ITEM 
STAFF 
PRODT 
RAMP  PROD 


SERVICE 

LINES 

PROJECT 

REQTS_ARMY 


PACKAGE 

GOALS 

PR0D_FY 

REQTS_OTHER 


FAMILY 

PFSTAB 

ITEM_DATA 

TREQ 


(b)  From  result  tables: 

RESULT  1  RESULT2  RESULT 3 

RESULT4  RESULT5  RESULTS 


5.2.2  Conventions.  For  daily  backup  and  for  PJSM  user  access,  the 
data  tables  are  exported  under  the  file  name  'TABLENAME’_SAVE.  For 
PJSM  user  access,  TREQ  and  the  RESULT  tables  are  saved  under  the 
file  name  ’ TABLENAME’_RCN’RCN_NUMBER’ .  For  daily  backup  the  RESULT 
tables  are  saved  under  the  file  name  ’TABLENAME’  RCN99. 


5.2.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  viewing  the  COMO  files  for  the  following  procedures: 

a.  For  a  PJSM  user:  SAXJSM>*DMP . [today ’ s  date ] ARCHIVE. COMO. 

b.  For  daily  backup:  SAXPGM>fDAILY_BKUP> ARCHIVE. COMO. 
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PROGRAM  REVISIOI  !1.  DATE 

For  me  of  this  fort,  flee  TB  18-111;  the  proponent  agency  ii  DCSOPS. _ I  30  lov  87 


2. 


PROGRAM  ID 
5.2 


3. 


PROGRAM  IAME 
ARCHIVE. CPL 


4.  REV  10. /DATE 


5. 


DESCRIPTIOI  OF  REVISION 


DA  row  4752-R,  APR  83 


REPLACES  DA  FROM  5752,  IOV  78,  WHICH  IS  OBSOLETE. 
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5.3  Program.  ORACLE  Precompile,  Compile,  Link,  and  Execute  Program 
(BIND32IX.CPL) 

5.3.1  Program  Description.  BIND32IX.CPL  ia  written  in  CPL 
interlacing  it  with  the  PRIME' a  ORACLE  Data  Baae  Management  Syatem 
uaing  SQL. 

a.  Identification  -  The  aource  code  for  the  ORACLE  Precom¬ 
pile,  Compile,  Link,  and  Execute  Program  ia  atored  in  the  file 
QIND32IX.CPL  located  in  the  directory  SAXPGM>»PS. 

b.  Functions  -  This  CPL  program  is  used  for  precompiling, 
compiling,  linking,  and  executing  FORTRAN  77  programs  with  embedded 
PRIME  ORACLE  coding. 

c.  Input  - 

(1)  Program  -  Name  of  FORTRAN  Program. 

(2)  User  -  (ORACLE  userid) . 

(3)  PSWD  -  (ORACLE  password) . 

(4)  Cursors  -  (Maximum  Open  ORACLE  Cursors,  default  is  16). 

d.  Processing  -  BIND32IX.CPL  ia  executed  as  a  one-line 
command  string  with  the  following  parameters  (Program,  User,  PSWD, 
and  Cursors).  This  program  will  precompile,  compile,  link,  and  then 
execute  a  newly  created  FORTRAN- ORACLE  program.  This  program  will 
also  check  if  the  program  has  been  modified  recently;  if  so,  it  will 
be  precompiled,  compiled,  linked,  and  then  executed.  Existing  pro¬ 
grams  not  recently  modified  are  just  executed. 

e.  Output  -  A  COMO  file  named  'Program' .COMO  where  Program 
is  the  name  of  the  FORTRAN  program.  Any  error  messages  will  be 
listed  in  this  file. 

f.  Security  -  BIND32IX.CPL  works  with  information  which  is 
unclassified. 

g.  Interfaces  -  This  CPL  program  interfaces  with  PRIME 
ORACLE  through  UFI. 

h.  Tables  -  N/A. 


5.3.2.  Conventions.  N/A. 
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5.3.3  Verification  Procedures.  Error  messages  will  show  up  on  the 
terminal.  A  COMO  file  is  created  to  save  the  error  messages. 

5.3.4  Error  Conditions.  N/A. 

5.3.5  Listings.  Program  listing  is  located  in 

<SYSSA)SAXPGM>iPS>BIND32IX.CPL.  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 
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nOCBAM  UVI810I 

For  uit  of  this  ton,  u*  TB  18-111;  the  proponent  >m ncy  ii  DCSOPS. 


2.  PROGRAM  ID 
5.3 


II.  DATE 
:  30  Xov  87 


4.  SET  10. /DATE 


3. 


PROGRAM  XAK 

BIMD32IX.CPL 


5. 


DESCRIPTIOI  OF  BETISIOI 


DA  FORM  4732-1,  API  83  REPUCES  DA  FROM  5752,  107  78,  IBICB  1C  OBSOLETE. 
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5.4  Program.  Change  Revision  iCREV.FOFJ 

5.4.1  Program  Description.  The  Change  Revision  program  is  written 
in  structured  FORTRAN  77.  The  source  code  is  located  in  a  file  named 
CREV.FOR  which  is  input  to  the  ORACLE  precompiler  that  creates  the 
CREV.F77  file.  This  file  in  turn  is  compiled  with  the  F77  compiler 
and  loaded  with  the  BIND  utility  to  produce  the  executable  program 
CREV. RUN.  The  following  paragraphs  describe  the  CREV  program: 

a.  Identification  -  Source  code  for  this  program  is  in  the 
CREV.FOR  file.  Its  executable  equivalent  is  CREV. RUN. 

b.  Functions  The  CREV  program  allows  the  user  to  copy  data 
from  one  revision  control  number  to  another  for  the  following  tables: 
GOALS,  ITEM. LATA.  F'FSTAB ,  PRODT.FY,  STAFF,  REQTS . ARMY ,  REQTS . OTHER . 

c.  Input  - 

1 1 ■  Interactive:  User  inputs  ORACLE  identification  and 
password,  responds  to  old  RCN  and  new  RCN  prompts,  and  enters  list 
of  tables  to  update. 

(2)  Input  by  program: 

la)  GOALS:  Ali  columns  read  for  update. 

(b)  ITEM. DATA:  All  columns  read  for  update. 

let  PFSTAB:  All  columns  read  for  update. 

id)  PRODT.FY:  All  columns  read  for  update. 

(e)  STAFF:  All  columns  read  for  update. 

(f)  REQTS . ARMY :  All  columns  read  for  update. 

(g)  REQTS. OTHER:  All  columns  read  for  update. 


d  .  Process  mg  - 

il'  User  input:  Reads  user  ID,  password ,  old  RCN,  new 
RCN.  and  list  of  tables  for  update. 

L 1  For  each  table  listed  by  the  user: 

(al  Read  rows  in  table  where  RCN  -  old  RCN. 
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(b)  Search  table  for  row  with  row-id  equal  to  row-id 
j us t  read  and  8CN  equal  to  user  input  new  RCN. 


(c)  If  a  row  is  found,  update  all  columns  with  data 


from  old  RCN  row. 


(d)  If  a  row  is  not  found,  insart  a  row  in  the 
table  with  the  appropriate  data  and  RCN. 


(e)  Delete  rows  in  table  where  RCN  =  old  RCN. 


(3)  It  should  be  noted  that  for  the  REQTS . ARMY  and 
REQTS. OTHER  table,  the  only  update  or  inserts  allowed  are  changes  to 
the  baseline. 


(a)  Read  the  quantity  and  change  values  from  the 
table  for  items  where  the  CHANQE  column  is  not  null. 


(b)  Update  the  table,  setting  the  QUANTITY  column 
equal  to  the  quantity  just  read  plus  the  change.  Set  the  CHANGE 
column  to  null. 


e.  Output  -  Update  or  insert  to  tables. 

f.  Security  -  No  unique  security  considerations. 


g.  Interfaces  -  This  program  does  not  require  interfacing 
with  other  programs.  PMO  users  may  execute  this  program  at  will 
through  the  JSM  Master  Menu. 


h.  Tables  -  See  Annex  B. 


5.4.2  Conventions.  This  program  has  been  written  with  the  conven¬ 
tion  that  all  local  variables  end  with  a  'S'  character  to  distinguish 
them  from  similarly  named  ORACLE  columns. 


5.4.3  Verification.  Verification  will  be  done  manually  using 
ORACLE’S  UFI  to  directly  access  the  tables. 


5.4.4  Error  Conditions.  Errors  encountered  will  be  documented  in 
the  COMO  file  produced  at  each  execution. 


5.4.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM> APGM. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.5  Program.  PJSM  Data  Base  Maintenance  Program  t PJSM_MAINT . CPL) 


5.5.1  Program  Description.  The  PJSM  Data  Base  Maintenance  Program 
is  written  in  CPL  interfacing  it  with  the  PRIME  ORACLE  Data  Base 
Management  System  using  SQL.  This  program  was  written  due  to  the 
fact  that  keying  in  the  data  base  maintenance  commands  for  PRIME 
ORACLE  were  very  time-consuming.  It  was  easier  to  write  this  pro¬ 
gram  to  include  all  of  the  known  maintenance  operations  and  for 
future  maintenance  operations. 


a.  Identification  -  The  source  code  for  the  PJSM  Data  Base 
Maintenance  Program  program  is  stored  in  a  file  called  PJSMMAINT. CPL 
in  the  directory  SAXPGM>*DBA. 


b.  Functions  -  This  program  is  used  for  two  purposes: 


!l)  Allow  users  access  to  the  PJSM  data  on  the  PRIME 
ORACLE  Data  Base  Management  System  by  means  of  UFI  and  IAP. 


(2)  Allow  users  access  to  various  FORTRAN  programs  which 
run  in  batch  mode  by  means  of  a  job  statement. 


c.  Input  -  Done  by  interactive  prompting  from  menus. 


d.  Processing  -  This  is  the  general  purpose  menu-driven 
program  to  allow  users  access  to  various  data  base  maintenance 
options  for  the  PJSM: 


(1)  Program:  Main 


(a)  Description:  Initializes  variables  before 
calling  the  DBA_Master_Menu  sub-routine. 


(b)  Variables  Accessed: 


(1!  Break  Count 


(2)  TSCC 


(3)  Disk 


(4)  Table_0r l g inal  =  SAXPGM) STABLES _0RIGINAL 


(5)  Table  Scratch  =  SAXPGM) STABLES  SCRATCH 


16)  JFD  =  SAXPGM 


(7)  Sub  UFD  =  SAXPGM) SDBA 


uajg 
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(8)  Login_Time 

(9)  Term_Type 

(c)  Subroutines  accessed: 

(1_)  Set_Term_Type 

(2)  Enter_PJSM_User id 

(3)  Ver i fy_I f _DBA_or_PGMR 
( 4_)  Pnnter_Dest_Menu 

(5)  DBA_Master_Menu 

(2)  Program:  DBA_Mas ter_Menu 

(a)  Description:  Main  Menu  which  indicates  which 
program  a  user  may  access  given  the  user  is  the  creator  or  an  ordin¬ 
ary  user. 

lb)  Variables  Accessed: 

U)  User  /*  contains  PJSM  userid*/ 

(2)  0PT_NBR 
( c )  Screen: 

JSM  DATA  BASE  PROGRAMMERS  MENU  [Today’s  Date] 


OPTION 

NUMBER 


FUNCTION 


n 


Regrant  access  to  all  PJSM  tables  Menu 
Call  Table  Maintenance  Procedures  Menu 
Create  Table  Maintenance  Reports  Menu 
Grant  user  authority  to  access  PJSM 
Revoke  user  authority  to  access  PJSM 
Rebuilt  Scratch  Tables  Directory  for  PJSM 
Select  Printer  Destination  Menu 
Reset  PJSM  Userid 

Spool  Table  Maintenance  Reports  Menu 
Set  terminal  type 
Logof  f  f rom  PRIME 


msmm 


ADSM  18-L62-LAT-ZSZ-MM-2604 
30  November  1987 


(d)  Subroutines  accessed: 


OPTION 

NUMBER 


1 

2 

3 

4 

5 

6 

7 

8 
D 
M 
P 
R 
U 


Grant_Access_Menu 

Mamtenance_Menu 

Create_Reports_Menu 

View_Report_Menu 

Spool_Report_Menu 

Gr an t_User_ Access _Menu 

Revoke_User_Access_Menu 

Rebuild_Create_Tab_Scr_Dir 

Ods  ->  External  Program  created  by  ORACLE 

JSM_Info  ->  External  Program  maintainable  by  DBA 

Printer _Dest_Menu 

Set_Term_Type 

Enter  PJSM  Userid 


NOTE:  users  from  AMSMC-AP  or  programmers  have  access  to  option  '50' 
which  will  allow  the  user  access  to  the  PR1M0S  OK-level . 


32 

r 

(3)  Program:  Create_Repor ts_ 

Menu 

1 

(a) 

Description:  Creates  reports. 

|  (b) 

Variables  Accessed: 

RPT_OPT_NBR 

(c) 

i 

Screen : 

JSM  CREATE  REPORTS  MENU 

[Today’s  Date] 

OPTION 

NUMBER 

FUNCTION 

1 

Create  Table  Access 

Report 

2 

Create  Column  Access 

Report 

sal 


3 

4 

5 
P 
R 
S 
X 


Create  Table  Space  Allocation  Report 
Create  PJSM  User  Directory  Report 
*«*  All  of  the  above  »** 

Select  printer  destination 
Return  to  previous  menu 
Spool  out  report 
Logoff  from  FR1ME 


Printer  destination  is  currently  [SYSTEM  ID] 


TO 


ft 
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(d)  Subroutines  accessed: 

OPTION 

NUMBER 

1  Sys_Grant 

2  Col_Grant 

3  Space_Al location 

4  Use r_Directory 

5 

P  Pr inter_Dest_Menu 

S  Spool_Repor t^Menu 

NOTE:  Option  ’50'  Returns  the  user  to  the  previous  menu. 

(4)  Program:  Spool_Report_Menu 

(a)  Description:  Spool  reports. 

(b)  Variables  Accessed: 

U)  SP_OPT_NBR 

(2)  Disk  / *Destination  for  Routing  Reports*/ 
ic)  Screen: 


OPTION 

NUMBER 


JSM  SPOOL  LIST  MENU  [Today’s  Date] 


FUNCTION 

Spool  Table  Access  Report 
Spool  Column  Access  Report 
Spool  Table  Space  Allocation  Report 
Spool  P.JSM  User  Directory  Report 
***  All  of  the  above  »** 

Return  to  previous  menu 
Select  printer  destination 
***  Not  accessible  *** 

Logof  f  f  rom  PRIME 


Printer  destination  is  currently  [SYSTEM  ID] 
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NOTE 


(d)  Reports  spooled: 


OPTION 

NUMBER 

1  Sys. Grant 

2  Syscolauth . 1  is 

3  Space . A1 location 

4  PJSM_User_Directory 

(e)  Subroutine  Accessed: 

OPTION 

NUMBER 

P  Printer  Dest  Menu 


Option  '50'  returns  the  user  to  the  previous  menu. 


(5)  Program:  View_Report_Menu 


(a)  Description:  View  reports 
(bl  Variables  Accessed. 

U>  VW_OPT_NBR 

(2)  Disk  /*Destination  for  Routing  Reports*/ 
(c)  Screen: 


JSM  VIEW  REPORT  MENU  [Today's  Date] 

OPTION 

NUMBER  FUNCTION 


1 

2 

3 

4 

5 
R 
P 
S 
X 


View  Table  Access  Report 
View  Column  Access  Report 
View  Table  Space  Allocation  Report 
View  PJSM  User  Directory  Report 
***  All  of  the  above  *** 

Return  to  previous  menu 
Select  printer  destination 
»*#  Not  accessible  »»* 

Logof  f  from  PRIME 


Printer  destination  is  currently  [SYSTEM  ID] 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


w 

$ 


{ 


I 

58 


*v 

'•5' 

& 

m 

r 


$ 

& 

1 


& 


(d)  Reports  viewed: 


OPTION 

NUMBER 


Sys . Grant 
Syscolauth . 1  is 
Space .Allocation 
PJSM_User_Di rectory 


(e)  Subroutine  Accessed: 


OPTION 

NUMBER 


Frinter  Dest  Menu 


NOTE:  Option  ’50’  returns  the  user  to  the  previous  menu. 


(6)  Program:  Grant_Access_Menu 


(a)  Description:  Executes  the  Grants  User  Access 
to  PJSM  Tables  program. 


(b>  Variables  Accessed: 


(1)  GRANT  OPT  NBR 


(2)  All_Flag  /*  Y  ->  accesses  all  tables 

/*  N  ->  accesses  a  table  (User-selected) 


id  Screen: 


JSM  ACCESS  GRANT  MENU  [Today’s  Date] 


OPTION 

NUMBER 


FUNCTION 


Grant  group  table  access 
Grant  unique  table  access 
Return  to  previous  menu 
Select  printer  destination 
Spool  out  report 
Logoff  from  PRIME 


Printer  destination  is  currently  [SYSTEM  ID] 
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(d)  Subroutine  Accessed: 


OPTION 

NUMBER 

1,2  Grant_User_Table_Access 

P  Pr inter_Dest_Menu 

S  Spool_Report_Menu 

NOTE:  Option  '50'  returns  the  user  to  the  previous  menu. 

(7)  Program:  Maintenance_Menu 

(a)  Description:  Calls  menu  to  execute  space  com¬ 
pression  on  a  PJSM  Table  and  regrants  access  to  that  table. 

(b)  Variables  Accessed: 

(1)  MAI NT  OPT  NBR 


selected) 


(2)  All_Flag  /*  N  ->  accesses  a  table  (User- 


(c)  Screen: 


WELCOME  TO  THE  JOB  SCHEDULING  MODEL  (JSM)  SYSTEM  [Today’s  Date] 

Maintenance  Menu 


OPTION 

NUMBER 


FUNCTION 

Rebuild  JSM  tables 
Return  to  previous  menu 
Select  printer  destination 
Spool  out  report 
Logoff  from  PRIME 


Printer  destination  is  currently  [SYSTEM  ID] 


(d)  Subroutine  Accessed: 


OPTION 

NUMBER 


Rebuild_Tables_Menu,  Gran t_User_Table_ Ac cess 
Pr inter_Dest_Menu 
Spool _Report_Menu 


vV 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


NOTE:  Option  ’50’  returns  the  user  to  the  previous  menu. 

(8)  Program:  Grant_User_Access_Menu 

(a)  Description:  Grant  user  access  to  the  PJSM 
system  level  views. 

(b)  Variables  Accessed: 

Userl  User  whose  views  are  given  access  to 

User  PJSM  ORACLE  Userid 

PSWD  PJSM  ORACLE  Password 

(c)  Views  Accessed: 

Wei  Is . PJSM_User_Catalog  PJSM  User  Information 

Wei  Is . JSM_Colauth  PJSM  User  Column  Update  Information 

Wei  Is . JSM_Tabauth  PJSM  User  Table  Access  Rights  Information 

Wei  Is . JSM  Tabal loc  PJSM  Table  Space  Allocated  Information 

(9)  Program:  Revoke_User_Access_Menu 

(a)  Description:  Revokes  user  access  to  the  PJSM 
system  level  views 

(b)  Variables  Accessed: 

Userl  User  whose  views  are  revoked  to 

User  PJSM  ORACLE  Userid 

PSWD  PJSM  ORACLE  Password 


(c)  Views  Accessed: 


Wells. PJSM_User  Catalog 
Wells. JSM_Colauth 
Wells. JSMTabauth 
Wells. JSM  Taballoc 


PJSM  User  Information 

PJSM  User  Column  Update  Information 

PJSM  User  Table  Access  Rights  Information 

PJSM  Table  Space  Allocated  Information 


(10)  Program:  Rebui ld_Tables_Menu 

(a)  Description;  Executes  space  compression  on  a 
PJSM  table  and  regrants  access  to  that  table. 
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(b)  Variables  Accessed: 


Table_Scratch 

Table  Original 

Flag.Old 

Flag_New 

Tab le_ Name 

01d_Tab_Exists 

User 

PSWD 


(c)  Screen: 

RESUILD  JSM  TABLES  [Today's  Date] 
Available  ORACLE  tables  are: 


FAMILY 

PACKAGE 

RAMP.ITEM 

RESULT 2 

SERVICE 

GOALS 

PFSTAB 

RAMP  PROD 

RESULT3 

STAFF 

ICT 

PLANT 

REAS0N.C0DE 

RESULT4 

TREQ 

ITEM 

PRODT 

REQTS.ARMY 

RESULT5 

ITEM_DATA 

PRODT  FY 

REQTS_OTHER 

RESULT6 

LINE 

PROJECT 

RESULT 1 

REVTAB 

Directory. 

Directory . 


»»»•»»«  (Enter  Q  to  Quit)  »»*#•«* 

(d)  ORACLE  Table  Definition  Location: 

(1)  Current  Table  Definition  from  ’Table_Original ' 


(2)  Old  Table  Definition  from  ’Table  Scratch’ 


(3)  Current  Table  Index  Definition  from 
’Table_Original '  Directory. 


(4)  Old  Table  Index  Definition  from  'Table  Scratch' 


Directory . 
NOTE: 


Current  Table  Definition  is  as  follows:  ’ table_name ’ . UFI 

Current  Tr-ble  Index  Definition  is  as  follows:  '  table_name  ’  _INDX.  UFI 

Old  Table  Definition  is  as  follows:  ’ table_name ' _0LD. UFI 

Old  Table  Index  Definitionn  is  as  follows:  'table  name’  Old  INDX.UFI 


where  'table  name'  is  the  name  of  a  PJSM  table. 


mm* 


ctc 
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(11)  Program:  Grant_User _Table_Access 

(a)  Description:  Recreates  the  Grant  Definitions 
for  a  single  PJSM  Table  or  all  PJSM  Tables.  Access  rights  of 
select,  alter,  index,  insert,  update,  or  select  can  be  given  to  the 
PJSM  users . 


(b!  Variables  Accessed: 


U)  User 

(2)  PSWD 

(3)  All_Flag 

(4)  Table_Name 

(5)  Current_Table 

(6)  X 


(c)  Tables  where  users  are  given  access  to: 


FAMILY 

PACKAGE 

RAMP_ITEM 

RESULT2 

SERVICE 

GOALS 

PFSTAB 

RAMP_PR0D 

RESULT3 

STAFF 

ICT 

PLANT 

REAS0N_C0DE 

RESULT4 

TREQ 

ITEM 

PRODT 

REQTS_ARMY 

RESULT5 

ITEM  DATA 

PR0DT_FY 

REQTS_0THER 

RESULT6 

LINE 

PROJECT 

RESULT  1 

REVTAB 

(12)  Program: 

Printer_Dest_Menu 

(a)  Description:  Selects  PRIME  Computer  System 
Destination  to  route  printouts 


(b)  Variables  Accessed:  Disk 

(c)  Screen: 


LIST  OF 

AVAILABLE 

PRINTER 

LOCATIONS 

t  Today ’ s 

Date  ] 

SYSSA  SYS  104 
SYS  103  SYS062 
SYS350  SYSDP 

SYS1 10 
SYS390 
SYS060 

SYSSEQ 
SYS  103 
SYSMS 

SYSSEN 

SYS062 

SYSDDN 

SYS056 

SYS390 

SYSENG 

SYS090 

SYSCAP 

IME9 
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(13)  Program:  Sys_Grant 

(a)  Description :  Creates  report  indicating  the 
rights  granted  for  users  to  the  PJSM  tables.  Rights  granted  are 
select,  update,  insert,  delete,  or  alter. 

(b)  Variables  Accessed: 

(1_)  User 

(2)  PSWD 

(c)  Report  Destination:  SAXPGM>SDBA)#REPORTS>SYS . GRANT 

(d)  Views  Accessed: 


Wells .JSM_TabautL  PJSM  User  Table  Access  Rights  Information 

NOTE:  This  is  a  ORACLE  view  which  is  maintainable  by  the  ORACLE 

Data  Base  Administrator. 

(14)  Program:  Col_Grant 

(a)  Description:  Creates  report  indicating  the 
update  rights  granted  for  users  to  individual  columns  in  the  PJSM 
tables . 


(b)  Variables  Accessed: 

(1_)  User 

(2)  PSWD 

(3)  Report  Destination: 

SAXPGM) «DBA> iREPORTS  >  SYSCOLAUTH .LIS 

(c)  Views  Accessed: 

Wei  is . JSM_Colauth  PJSM  User  Column  Update  Information 

NOTE;  This  is  a  ORACLE  View  which  is  maintainable  by  the  ORACLE 
Data  Base  Administrator. 
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(15)  Program:  Space_Al 1 ocat l on 

!a)  Description:  Creates  report  indicating  the 
space  used  in  terms  of  2048  byte  blocks  by  the  PJSM  tables.  An 
extent  of  16  is  set  by  the  ORACLE  Data  Base  Administrator  as  a  limit 
for  the  maximum  size  for  a  table.  If  limit  is  reached,  then  perform 
the  Space  Compression  routine  in  the  Maintenance  Screen.  If  this 
routine  fails,  then  the  DBA  must  enlarge  the  space  allocated  for 
that  table,  and  possibly  enlarge  the  file  where  this  table  is  stored 
(this  is  a  major  effort). 

(b)  Variables  Accessed: 
fl_)  User 

(2)  PSWD 

(c)  Report  Destination: 

SAXFGM) SDBA)  $KEP0RTS> SPACE . ALLOCATION 

(d)  Views  Accessed: 

We  1  Is . JSM  Tabal  loc  PJSM  Table  Space  Allocated  Information 

NOTE:  This  is  a  ORACLE  view  which  is  maintainable  by  the  ORACLE 
Data  Base  Administrator. 

(16)  Program:  User_Directory 

(a)  Description:  Creates  report  indicating  the 
views,  tables,  and/or  synonyms  that  a  PJSM  user  has  in  his  account. 

(b)  Variables  Accessed: 

U)  User 

(2)  PSWD 

< c >  Report  Destination: 

S AXPGM>  * DBA) $  RE PORTS  > PJSM  USER  DIRECTORY .LIS 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(d)  Views  Accessed: 

Wei  1 s . PJSM_User_Catalog  PJSM  User  Directory  Information 

NOTE:  This  is  a  ORACLE  view  which  is  maintainable  by  the  ORACLE 
Data  Base  Administrator. 

(17)  Program:  Rebui ld_Create_Tab_Scr_Di r 

(a)  Description:  Creates  the  table  and  index 
definitions  for  the  backup  tables  required  for  the  daily  backup 
process  for  PSJM.  These  definition  files  are  stored  in 
SAXPGM) STABLES _0R I GINAL  and  SAXPGM) STABLES _ SCR ATC H . 

lb)  Variables  Accessed: 

1 1_)  Table_0rigi nai 

(2)  Table_Scratch 

NOTE:  When  a  PJSM  Table  is  altered,  its  corresponding  table  and 

index  must  be  altered  in  SAXPGM)STABLES_ORIGINAL . 

(18)  Program:  Break_Handler 

(a)  Description:  The  default  definition  of  the 
break  key  has  been  disabled.  This  was  done  so  that  the  PJSM  user 
can  not  return  to  PR1MOS  when  the  break  key  is  pressed.  Everytime 
the  break  key  is  pressed,  a  message  will  appear  on  the  screen 
indicating  that  the  break  key  has  been  disallowed.  If  the  user 
depresses  the  break  key  a  third  time  he/she  is  automatically  logged 
off  of  PRIME.  This  logged  out  information  is  stored  in  the  direc¬ 
tory  SAXPGM) #DBA>SLOGIN. 

(b)  Variables  Accessed:  Break_Count 

(c)  Execution  Mode:  On-line  PR1M0S  CPL  routine 

NOTE :  This  routine  is  accessed  as  an  On- unit  on  every  subroutine  in 

this  program. 

(19)  Program:  Set_User 

(a)  Description:  This  routine  queries  the  user  ft' 
his/her  PJSM  userid. 

(b)  Variables  Accessed:  User 
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(20)  Program:  Set_PSWD 

(a)  Description:  This  routine  queries  the  user 
for  his/her  PJSM  password. 

(b)  Variables  Accessed:  PSWD 

(21)  Program:  Set_Term_Type 

(a)  Description:  This  routine  queries  the  user 
for  the  type  of  terminal  he/she  is  using.  This  is  stored  in  a 
variable  called  ’TERM_TYPE’.  This  information  is  needed  by  this 
program  in  order  that  the  terminal  can  clear  its  screen  properly. 

(b)  Variables  Accessed:  TermType 

(c)  Execution  Mode;  On-line  PR1M0S  CPL  routine 

(d)  Valid  Terminal  Types: 

HDS  Human  Design  Systems  terminal  emulator 

VT100  Dec  VT100  terminal  emulator 

VT100_UL  Alternate  Dec  VT100  terminal  emulator 
PST100  PRIME  PST100  terminal  emulator 

PT200  PRIME  PT200  terminal  emulator 

PT45  PRIME  PT45  terminal  emulator 

V50Q  Visual  500  terminal  emulator/Dec  VT52  terminal  emulator 

PC-ORACLE  PC  communicating  with  ORACLE  ORALINK  communications  package 
XTALK  PC  communicating  with  Crosstalk  communications  package 

NOTE:  If  a  user  enters  'HELP’  or  ’H’.  a  list  of  allowable  terminal 

types  would  appear  on  the  terminal  screen. 

(22)  Program:  Enter_PJSM_User id 

(a)  Description:  This  routine  calls  up  an  exter¬ 
nal  program  which  checks  if  he/she  is  using  a  valid  ORACLE  Userid/ 
Password.  The  external  program  is  SAXPGM) VALID. CPL. 

(b)  Variables  Accessed: 

(  1_)  TermType 

(2!  User 

(3)  PSWD 

(4)  Sub  UFD 
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(5)  Flag_old 

(6)  Flag_new 

(7)  User_temp 

(23)  Program:  Veri fy_If_DBA_or_PGMB 


(a)  Description:  This  routine  checks  if  the  user 
is  a  DBA  or  a  programmer  by  checking  a  column  DBA_Flag  in  a  DBA 
maintainable  view  called  PJSM_User  for  D  (DBA)  or  P  (Programmer) . 

If  the  user  is  not  listed  as  either  D  or  P  in  PJSM_User,  he/she  will 
be  logged  out  of  this  program. 


(b)  Variables  Accessed: 


m 

DBA_or_PGMR 

(2) 

A 

(3) 

Max_DBA_or _! 

(4) 

User 

(5) 

PSWD 

Views 

Accessed: 

Wei  Is. PJSM  Users 


PJSM  User  Information 
e.  Descriptions  of  all  PJSM  ORACLE  Views: 
(1)  WELLS.PJSM  USERS 


NO.  SIZE  CSIZE 


TYPE 


NAME 


DESCRIPTION 


10 

10 

20 

20 

14 


1 

1 

1 

1 

75 


1  character 
1  character 
1  character 
1  character 


ORACLE  Userid 
ORACLE  Password 
Department 


1 

1 

10 


USER1 
PSWD1 
DEPT 

DEPTHEAD  Department  Head 
12  date  data  type  ENTRY_DATE  Date  User  Given 

PJSM  Access 

1  character  PBA_FLAG 

1  character  SYN 

1  character  GRANTOR 


( DBA/ Programmer /User  I 

N/A 

N/A 
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(2)  WELLS. PJSM_USERS_CATALOG 


NO. 

SIZE 

CSIZE 

TYPE 

NAME 

DESCRIPTION 

1 

10 

1 

1 

character 

USER  1 

ORACLE  Userid 

2 

30 

1 

1 

character 

CREATOR 

Table  Creator 

3 

30 

i 

1 

character 

TNAME 

Table  Name 

4 

7 

1 

1 

character 

TABLETYPE 

Table  Type 

5 

22 

40 

2 

numeric 

CLUSTERID 

N/A 

6 

22 

40 

2 

numeric 

L0GBLK 

N/A 

7 

22 

40 

2 

numeric 

REQBLK 

N/A 

8 

10 

1 

1 

character 

IXCOMP 

N/A 

13) 

WELLS. JSM_TABALLOC 

NO. 

SIZE 

CSIZE 

TYPE 

NAME 

DESCRIPTION 

1 

30 

1 

1 

character 

OWNER  Table  Owner 

2 

30 

l 

1 

character 

NAME  Table  Name 

3 

22 

40 

2 

numer i c 

D_BLKS  No.  of  Data  Table  Blocks 

4 

22 

40 

2 

numeric 

B_EXTS  No.  of  Data  Table  Extents 

5 

22 

40 

o 

numeric 

I_BLKS  No.  of  Index  Blocks 

6 

22 

40 

2 

numeric 

IEXTS  No.  of  Index  Extents 

(4) 

WELLS. JSM_COLAUTH 

NO. 

SIZE 

CSIZE 

TYPE 

NAME 

DESCRIPTION 

1 

30 

1 

1 

character 

GRANTOR  Table  Owner 

o 

30 

1 

1 

character 

GRANTEE  Table  User 

3 

30 

1 

1 

character 

TNAME  Table  Name 

4 

30 

1 

l 

character 

COLNAME  Column  Name 

5 

1 

1 

1 

character 

UPD 

(•-Updateable  Column) 

f .  Output  -  N/ A 

g.  Security  -  The  PJSM  Data  Base  Maintenance  Program  works 
with  information  which  is  unclassified. 

h.  Interfaces  -  This  CPL  program  mtefaces  with  the  PJSM 
tables  on  PRIME  ORACLE  through  UFI  and  with  other  CPL  programs. 

l.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base; 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  Nov*-  .Ler  1987 


(1)  Data  table: 

REVTAB  ITEM  SERVICE  PACKAGE  FAMILY 

PLANT  STAFF  LIMES  GOALS  PFSTAB 

ICT  PRODT  PROJECT  PROD.FY  ITEM. DATA 

RAMP .ITEM  RAMP.PROD  REQTS.ARMY  REQTS.OTHER  TREQ 

(2)  Result  table: 

RESULT  1  RESULT2  RESULT3 

RESULT4  RESULT5  RESULTS 

5.5.2  Conventions.  M/A 

5.5.3  Verification  Procedures.  N/A 

5.5.4  Error  Conditions.  N/A 

5.5.5  Listings.  Program  listing  is  located  in 

<SYSSA>SAXPGM>4DBA>PJSM_MAINT.CPL .  A  hardcopy  of  the  source  program 
is  available  in  AMSMC-IMS-HM. 
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PROGRAM  UTISIOI 


For  UHt  of  this  fore,  m  TB  18-111;  the  proponent,  ifttncy  ig  DCSOPS. 


2.  PBOQBAM  ID  13. 

5,5 _ !_ 

4.  REV  10. /DATE  !5. 


PROGRAM  IAME 
FJSM  MAIIT.CPL 


DESCRIPTIOI  OF  BEVISIOK 


II.  DATE 
!  30  »ov  67 


DA  FORM  4752*1,  API  S3  REPLACES  DA  FROM  5752,  107  78,  WHICH  IS  OBSOLETE. 
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5.6  Program.  Data  Base  Consistency  Check  (BASECHK . FOR) 

5.6.1  Program  Description.  The  BASECHK. FOR  program  is  written  in 
structured  FORTRAN  77.  Source  code  for  the  program  is  the 
BASECHK. FOR  file.  This  file  is  input  to  the  ORACLE  precompiler  to 
build  the  BASECHK. F77  file  which  is  compiled  and  then  loaded  with 
the  BIND  utility  to  produce  the  executable  program  BASECHK. RUN.  The 
following  paragraphs  describe  the  BASECHK. FOR  program: 

a.  Identification  -  Source  code  is  located  in  the  BASECHK. FOR 
file  and  its  executable  equivalent  13  BASECHK. RUN.  Users  will  have 
access  to  this  program  only  through  the  JSM  Master  Menu. 

b.  Functions  -  The  BASECHK. FOR  program  reads  virtually  all 
input  tables  and  checks  for  valid  DODICs,  package  levels,  plants, 
lines,  checks  requirements,  and  production  data  as  well.  This  is 
the  data  base  integrity  checker  and  it  is  run  through  the  JSM  Master 
Menu  as  a  batch  job. 

c.  Input  - 


t 


(1)  Interactive:  User  enters  ORACLE  identification  and 


password . 


(2)  By  program: 


% 


(a)  From  ITEM  table:  Read  DODIC,  use,  family,  new 
materiel  fielding  code,  sub-family. 


R185 . 


level ,  quantity . 
unit  price,  quantity. 


(b) 

price 

From 

ITEM, 

DATA: 

Read  DODIC,  priority,  POM 

(c) 

From 

ICT: 

Select  DODIC  and  component. 

(d) 

From 

PRODT 

Select  DODIC.  plant,  line,  R185 

(e) 

From 

PRODT 

_FY : 

Select  DODIC,  plant,  line, 

(f ) 

From 

RAMP, 

ITEM: 

Select  DODIC,  plant,  line. 

<g> 

From 

RAMP, 

PROD: 

Select  DODIC,  plant,  line. 

(h) 

From 

REQTS 

_ARMY : 

Select  DODIC,  FY,  package 

( i) 

From 

REQTS 

_OTHER 

Select  DODIC,  FY,  service 

V\f 

v.v 
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(Jj 

From  REVTAB:  Select  beginning  FY . 

next  FY. 

(k) 

TREQ: 

Select  DODIC. 

(1) 

FAMILY: 

Read  family  codes: 

(m) 

LINE: 

Read  line-plant  cross  reference. 

(n) 

PLANT : 

Read  plant  list. 

(o) 

STAFF: 

Read  plant  list. 

(p) 

SERVICE 

Read  list  of  services. 

Processi 

ng  -  The 

program  is  broken  into  five 

major  sub 

routines:  DODIC_MATCH ,  ITEM,  PRODX,  REQTS ,  and  AREQTS .  Each  will 
be  covered  individually,  in  detail,  in  the  following  paragraphs. 

The  user  responds  to  ORACLE  identification  and  password  prompts  as 
in  most  other  programs. 

(1)  Main:  Write  report  header.  Also  include  a  blank 
line  (this  is  accomplished  with  a  PRIME  call  to  TONL) .  Begin 
calling  subrountines . 

(2)  Subroutine:  DODIC-MATCH.  Its  function  is  to  check 
the  ICT,  PRODT ,  PR0DT_FY ,  RAMP_ITEM,  RAMP_PR0D ,  REQTS_ARMY , 
REQTS_0THER ,  and  TREQ  tables  for  invalid  DODICs.  The  same  logic 
applies  for  all  of  the  mentioned  tables. 

(a)  Read  the  ITEM  table  for  list  of  DODICs. 

(b)  Read  the  ITEMDATA  table  for  list  of  DODICs. 

(c)  Declare  and  open  a  cursor  to  return  all  DODICs 
from  one  of  the  above  mentioned  tables.  In  each  case,  a  separate 
subroutine  -  MATCH  -  is  called  which  matches  the  current  DODIC  with 
the  list  of  DODICs  read  from  the  ITEM  and  ITEM_DATA  tables.  MATCH 
returns  an  item  number  which,  if  non-zero,  implies  the  current  DODIC 
was  found.  In  each  case,  keep  track  of  the  number  of  DODICs  not  in 
ITEM  table,  and  the  number  of  DODICs  not  found  in  ITEM_DATA  table. 
Write  these  to  output  report. 

(d)  For  the  ICT  table,  all  components  are  also 

checked . 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


& 

8 


iKI 


$ 

g 


I 


I 


n 

>s 

«J3] 


(3)  Subroutine:  ITEM.  Its  function  is  to  compare  the 
DODICs  in  the  ITEM  and  ITEM_DATA  tables  for  consistency.  The 
ITEM_DATA  table  is  also  checked  for  no  priority  items  which 
initiates  an  error;  and  the  ITEM  table  is  checked  for  items  that 
have  no  requirement,  are  not  in  family  7,  and  are  not  a  component. 
If  all  of  the  above  occur,  an  error  message  is  initiated. 


(a)  Declare  and  open  a  cursor  that  will  read  the 
ITEM  table  and  return  the  DODIC  and  family. 


(b)  For  each  record  returned: 


U)  Search  the  ITEM_DATA  table  for  the  DODIC. 
if  not  found  write  ouput  error  message. 


(2)  Search  the  FAMILY  table  for  the  family 
code  returned;  if  not  found,  write  output  error  message. 


(3)  Read  the  Army  requirements  from  the 
REQTSARMY  table,  the  requirements  from  the  REQTS_OTHER  table,  and 
the  component  status  from  the  ICT  table. 


14)  If  both  requirements  are  zero,  the  item  is 
not  a  component,  and  the  item  is  not  non-AAO,  then  write  an  error 
message . 


(5)  Keep  track  of  the  number  of  DODICs  with 
each  of  the  above  conditions.  Also  keep  a  list  of  items  that  are  in 
5.6. Id (3) (b) (4)  . 


(c)  When  finished  write  out  list  of  items  in 
5 . 6 .  Id  ( 3) (b) (4 )  ,  and  the  number  of  DODICs  not  found  in  ITEMDATA. 
with  invalid  family  code,  and  total  entries  read. 


(d)  Declare  and  open  a  cursor  that  will  return  the 
DODIC,  FY,  priority,  and  POM  cost  from  the  ITEM_DATA  table. 


(e)  For  each  entry  returned: 


( 1_)  If  the  priority  is  null,  write  an  error 


message . 


(2)  Read  the  ITEM  table  for  the  family  and 
sub-family  codes  associated  with  the  DODIC. 


mmt 
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(3)  If  family  =  7  and  sub-family  =  1  and  the 
POM  cost  r  0,  then  save  item  in  list  to  be  output  later;  if  the  POM 
cost  is  greater  than  zero,  write  an  error  message.  If  neither  of 
the  two  major  conditionals  occur  then  read  the  PRODT  and  PRODT_FY 
tables  to  see  if  the  item  exists.  If  it  does  not,  then  add  the  item 
to  a  list  for  output  later. 

(f)  When  finished  reading  ITEM_DATA  table,  write 
out  the  lists  of  DODICs  saved  based  on  the  prior  conditions.  Also 
write  out  totals  of  DODICs  falling  into  the  variuos  conditionals. 

(4)  Subroutine:  PRODX.  This  subroutine  will  check  the 
PRODT,  PR0DT_FY  and  RAMP_PR0D  for  valid  plant  codes,  line  numbers, 
and  DODICs  . 


and  lines. 


(a)  Read  the  LINE  table  for  list  of  valid  plants 


(b)  For  each  cf  the  three  tables: 


(1_)  Declare  and  open  an  cursor  that  will 
return  the  DODIC,  plant,  and  line. 

(2)  For  each  entry  returned: 

(a)  Check  line  against  list  of  valid 
lines;  if  not  found  write  an  error  message. 

lb)  Search  the  PLANT,  STAFF,  and  LINE 
tables  for  the  plant.  If  not  found  in  any  one  of  these  tables, 
write  an  error  message. 


(c)  Keep  a  running  total  of  the  number  of 
DODICs  with  invalid  lines  or  plants. 


previously . 


(3)  When  completed,  write  out  numbers  tallied 


(51  Subroutine:  REQTS .  This  subroutine  will  check  the 
REQTS_OTHER  table  for  valid  service  codes.  It  will  also  check 
REQTSOTHER  and  REQTS_ARMY  for  inconsistent  unit  prices  and  require¬ 
ments  . 


(a)  Read  SERVICE  table  for  list  of  valid  services. 


(b)  For  the  REQTS_OTHER  table,  declare  and  open  a 
cursor  to  return  the  DODIC,  FY,  service  code,  unit  price,  and 
quantity . 
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(c)  Check  service  code  against  the  list  of  valid 
DODICs.  If  not  found  write  an  error  message. 

(d)  If  the  quantity  is  greater  than  zero  and  the 
unit  price  is  zero,  continue;  otherwise,  search  the  ICT  table  to 
determine  if  it  is  a  component.  If  it  is  not  a  component,  the  item 
must  exist  in  the  PRCDT_FY  or  PRODT  tables  where  line  is  turned  on; 
i.e.,  avail>0.  If  neither  is  true,  add  the  DODIC  to  a  list  of  items 
to  be  output  later. 

te)  When  completed  with  REQTS_OTHER  table  write  out 
the  list  of  items  that  have  no  requirements,  the  list  of  items  which 
are  components,  have  no  requirements  and  no  production  data,  and  the 
number  of  entries  read,  entries  with  invalid  service  codes,  entries 
with  inconsistent  unit  prices,  and  the  number  of  entries  with  incon¬ 
sistent  requirements. 

(f)  For  the  REQTS_ARMY  table,  declare  and  open  a 
cursor  that  will  return  the  DODIC,  FY,  package  level,  and  quantity. 

(g)  If  the  quantity  is  greater  than  zero,  then 
search  ITEM_DATA  table  for  the  unit  price.  If  the  unit  price  is 
zero  or  the  item  is  not  found  write  an  error  message. 

(h)  If  the  quantity  equals  zero,  then  search  the 
ICT  table  to  determine  if  the  item  is  a  component.  If  it  is  not  a 
component,  then  add  the  DODIC  to  a  list  of  items  to  be  printed  out 
later . 

(i)  If  the  DODIC  is  a  component,  then  it  should 
have  data  in  either  PRODT  or  PR0DT_FY  with  line  availability  greater 


than  zero.  Search  these  two  tables  for  the  DODIC  with  line 
availability  greater  than  zero.  If  it  is  not  found,  add  the  DODIC 
to  a  list  of  items  to  be  printed  out  later. 


(j)  Loop  through  all  entries  in  the  REQTS_ARMY 


table . 


(k)  Write  out: 

( 1_)  List  of  DODICs  with  no  requirements. 

(2)  List  of  DODICs  which  are  components,  have 
no  requirement,  and  no  production  data. 
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Write  out: 

(1_)  Number  entries  read. 

(2)  Number  entries  with  inconsistent  unit 


(3)  Number  entries  with  inconsistent  require- 


End  subroutine. 

(6)  Subroutine:  AREQTS.  This  subroutine  will  check  the 
package  levels  across  years  for  consistenty. 

(a)  Read  REVTAB  for  the  beginning  FY  and  number  of 
FYs  where  RCN  =  0. 

(b)  Declare  and  open  a  cursor  that  will  return  the 
FY,  package  level,  and  quantity  from  REQTS^ARMY. 

(c)  Read  in  all  packages  and  all  pertinent  FY3  for 
a  particular  DODIC. 

Id)  For  each  DODIC,  test  packages  across  FYs: 

(1_)  If  package  10  is  greater  than  0,  then 
package  5  must  be  greater  than  zero. 

(2)  If  package  11  is  greater  than  0,  then 
package  6  must  be  greater  than  zero. 

(3)  If  package  15  is  greater  th,an  0,  then 
package  13  must  be  greater  than  zero. 

(4)  If  the  item  is  a  new  materiel  fielding 
item,  then  packages  3-7  must  be  non-zero. 

(5!  If  the  item  is  a  training  item,  then 
packages  5  and  6  must  be  greater  than  zero,  and  packages  7,  8,  9, 

13,  14,  and  17  must  equal  zero. 

(6)  If  the  item  is  a  war  reserve  item,  then 
packages  6,  11.  12,  and  16  must  be  zero. 

17)  If  any  of  packages  17,  14,  9,  8,  or  7  has 
a  quantity  equal  to  zero,  then  all  lower  package  levels  (in  the  17, 

14,  9,  8,  and  7  list)  must  equal  zero  as  well. 


(i) 


pr ices . 


ments  . 


( m) 
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(8)  If  any  package  level  has  a  quantity 
greater  than  zero  in  any  FY,  then  it  must  also  have  quantity  greater 
than  zero  in  all  succeeding  years. 

(9)  The  requirement  for  a  package  must  not 
rise  or  fall  by  more  than  50  percent  from  the  first  year  to  the  last 
year . 

(e)  If  any  of  the  above  fail,  a  descriptive  error 
message  is  written  and  the  total  of  each  is  retained. 

(f)  Loop  through  all  items. 

(g)  When  finished,  write  out  the  totals  for  each  of 
the  possible  error  conditions  outlined  previously. 

(h)  End  subroutine. 

(7)  End  program. 

e.  Output  -  BASECHK . COMO 

f.  Interfaces  -  This  program  requires  no  special  inter¬ 
facing  with  any  other  program.  The  functional  user  can  execute  the 
program  at  any  time  but  only  through  the  JSM  Master  Menu. 

g.  Tables  -  See  Annex  B. 

5.6.2  Conventions.  This  program  was  written  with  the  convention 
that  local  variables  end  with  a  'i‘  character  to  help  differentiate 
them  from  similarly  named  ORACLE  columns. 

5.6.3  Verification  Procedures.  Verification  must  be  done  by  the 
functional  user  using  the  UFI  utility  to  manually  access  the  data 
base . 

5.6.4  Error  Conditions.  All  errors  encountered  will  be  documented 
in  the  COMO  file  created  at  each  execution  of  the  program. 

5.6.5  Listings.  Program  listing  is  located  in  <SYSSA>PGM>SPQM. 

A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.7  Program.  ORACLE  User  Validation  Program  (VALID. CPL) 

5.7.1  Program  Description.  The  ORACLE  User  Validation  Program  is 
written  in  CPL  interfacing  it  with  the  PRIME  Data  Base  Management 
System  using  SOL. 

a.  Identification  -  The  source  code  for  the  ORACLE  User 
Validation  program  is  stored  in  a  file  called  VALID. CPL  located  in 
the  directory  SAXPGM. 

b.  Functions  -  This  CPL  program  is  used  as  an  external 
program  for  access  by  other  CPL  programs  ( SAXPGM) JSM1 . CPL  and 
SAXPGM>$DBA> VALID . CPL) . 

c.  Input  - 

(1)  Through  SAXPGM) JSM1 . CPL : 

(a)  User  -  ORACLE  userid. 

(b)  PSWD  -  ORACLE  password. 

(c)  TSCC  -  Terminal  Screen  Clear  Code. 

(d)  UFD  -  Directory  of  log  file;  i.e.,  SAXJSM. 

(e)  Login_Time  -  Start  Time. 

(2)  Through  SAXPGM) $DBA> VALID . CPL . 

(a)  User  -  ORACLE  userid. 

(b)  PSWD  -  ORACLE  password. 

(c)  TSCC  -  Terminal  Screen  Clear  Code. 

(d)  Sub-UFD  -  Directory  of  log  file;  i.e,, 

SAXPGM) SDBA . 

(e)  Login_Time  -  Start  Time. 
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d .  Processing  -  The  ORACLE  User  Validation  Program  is  used 
as  a  means  of  checking  if  a  user  trying  to  gain  access  to  ORACLE  is 
actually  a  valid  user.  The  user  is  given  three  attempts  to  gain 
access  into  ORACLE.  If  successful,  the  PRIME  userid,  ORACLE  userid, 
time  of  entry,  and  time  logged  are  recorded  in  a  log  file.  If  the 
user  is  unsuccessf ul ,  either  by  entering  three  invalid  ORACLE 
userids  or  hitting  the  break  key  three  times,  the  PRIME  userid, 
ORACLE  userid,  time  of  entry,  and  time  logged  off  are  recorded  in  a 
log  file  after  which  the  user  is  logged  off  of  PRIME. 

e .  Output  - 

(1)  USER2  -  Valid  ORACLE  Userid. 

(2)  PSWD2  -  Valid  ORACLE  Password. 

f.  Security  -  The  ORACLE  User  Validation  Program  works  with 
information  which  is  unclassified. 

g.  Interfaces  -  This  CPL  program  interfaces  with  PRIME 
ORACLE  through  UFI . 

h.  Tables  -  N/A. 

5.7.2  Conventions.  N/A. 

5.7.3  Verification  Procedures.  N/A. 


5.7.4  Error  Conditions.  N/A. 

5.7.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM> VALID. CPL. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 


5-63 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


P10G1AM  UTI8I0I 

:i.  DATE  : 

For  use  of  this  fora,  see  TB  18-111;  the  proponent  Hency  is  DCSOPS . 

:  30  lov  87  : 

!2. 

PROGRAM  ID 

13.  PROGRAM  IAME 

5.7 

J  VALID. CPL 

!L_ 

m  10. /DATE 

15.  DESCRIPT I 01  OF  REVISIOI 

DA  /OUI  4753*1,  1P1  85  REPLACES  DA  FROM  5752,  MOV  78,  WBICB  IS  OBSOLETE. 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1887 


5.8  Program.  Batch  CPL  Subprograms  Interfacing  JSM1.CPL 
(BATCH  CPL  PGMS) 

5.8.1  Program  Description.  The  following  is  a  description  of 
programs  written  in  Command  Procedure  Language  (CPL)  which  interface 
with  SAXPGM)JSM1 .CPL. 

a.  Identification  - 


CPL 

LOCATION 

PROGRAM 

(*  =  SAXPGM) 

USAGE 

AEMS 

»>«PGM 

Runs  AEMS  Program 

APS 

»>*PGM 

Runs  APS  Program 

BASECHK 

»)SPGM 

Runs  BASECHK  Program 

CREV 

*)«PGM 

Runs  CREV  Program 

ICAPP 

*><PGM 

Runs  ICAPP  Program 

I  DP 

OSPGM 

Runs  IIDR  &  PIDR  Programs 

IWIR 

«)SPGM 

Runs  IWIR  Program 

JSM. RERUN 

«)*PGM 

Runs  JSM. RERUN  Program 

LISTT 

«)*PGM 

Creates  Individual  Extract 

PKG 

»)*PGM 

Runs  PKG  Program 

PS 

»>*PS 

Runs  TREQ,  BUILD_PTR,  &  PS 

NRPT 

*>»RPT 

Runs  RPT1  -  RPT16  Programs 

b. 

Functions  -  These 

programs  were  written  to  allow 

77  programs 

interfacing  with 

PRIME  ORACLE  to  be  called  in  a 

mode  from  SAXPGM) JSM.CPL 

c . 

Input  -  See  the  program  documentation  for  the 

SAXPGM) JSM1 

.CPL. 

d. 

Processing  -  A  batch  program  is  called  up  by 

SAXPGM) JSM1 

.CPL  with  its  associated  input  parameters. 

e  . 

Output  -  N/A. 

f  . 

Security  -  These 

programs  work  with  information  i 

unclassi f ied . 


g.  Interfaces  -  These  CPL  programs  interface  with  FORTRAN  77 
programs  with  the  same  name. 

h.  Tables  -  N/A. 

5.8.2  Conventions.  N/A. 
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5.8.3  Verification  Procedures.  A  COMO  file  is  created  within  each 
batch  program  in  order  to  check  the  status  of  the  program  while  it 
is  running. 

5.8.4  Error  Conditions.  N/A. 

5.8.5  Listings. 


CPL 

PROGRAM 

AEMS 

APS 

BASECHK 
CREV 
ICAPP 
I  DP 
IWIR 

JSM. RERUN 
LISTT 
PKG 
PS 

NRPT 


LOCATION 

SAXPGM) SPGM 
SAXPGM) SPGM 
SAXPGM>iPGM 
SAXPGM) SPGM 
SAXPGM>SPGM 
SAXPGM) SPGM 
SAXPGM) SPGM 
SAXPGM) SPGM 
SAXPGM)SPGM 
SAXPGM) SPGM 
SAXPGM) SPS 
SAXPGM) SRPT 


A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.9  Program.  Item  Descriptors  Input  Screen  (JSM_l.ItfP) 

5.9.1  Program  Deacritpton.  The  Item  Descriptors  screen  is  written 
using  ORACLE  Interactive  Appplication  Facility  (IAF).  An  ORACLE 
process  called  Interactive  Application  Generator  (IAG)  is  used  to 
create  the  form  necessary  to  produce  a  screen.  The  ORACLE  Inter¬ 
active  Application  Processor  (IAP)  is  utilized  to  convert  the  coding 
into  a  screen.  This  screen  is  located  on  the  PJSM  Master  Menu  under 
option  3,  Review  or  Update  Input  Data,  then  option  1,  Screens  for 
Review  or  Update,  and  finally  as  option  1. 

a.  Identification  -  The  source  code  for  the  Item  Descriptors 
screen  is  identified  by  a  file  labeled  JSM_1.INP.  After  being 
compiled  through  ORACLE  IAG,  a  run  file  is  created  named  JSM  l.FRM, 
both  located  in  SAXPGM>«INP. 

b.  Functions  -  The  input  screen,  Item  Descriptors,  retrieves 
general  item  information  from  the  PJSM  data  base  table  titled  ITEM. 
The  purpose  of  this  screen  is  to  review  or  input  item  data  and 
update  all  but  the  FSC  and  DODIC.  To  execute  a  query,  a  user  needs 
to  know  one  of  five  identifiers  of  an  item.  If  a  user  does  not  have 
that  information,  execution  of  a  query  will  result  in  items 
appearing  on  the  screen,  one  at  a  time,  in  DODIC  order. 

c.  Input  - 

(1)  Through  JSM  Master  Menu,  user  inputs  terminal  type, 
ORACLE  identification,  and  password. 

(2)  From  data  base.  From  ITEM  table: 

(a)  DODIC  —  CHARACTER  (4) . 

(b)  FSC  — -  CHARACTER  (4) . 

(c)  SSN  —  CHARACTER  (6) . 

(d)  NSN  —  CHARACTER  (16). 

(e)  ISN  ---  CHARACTER  (5) . 

(f)  nomenclature  — -  CHARACTER  (48). 

(g)  Family  Code  ---  INTEGER  (1). 


(h)  Sub  Family  Code  ---  INTEGER  (1). 
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(1)  Whether  or  not  an  item  is  new  materiel. 
Fielding  (NMF )  ---  CHARACTER  (1). 

(j)  Unit  of  Measure  (UOM)  ---  CHARACTER  (4). 

(k)  Use  Code  ---  CHARACTER  (1). 
d.  Processing  - 

(1)  The  Item  Descriptors  screen  incorporates  a  few 
unique  rules: 


(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause,  which 
is  by  DODIC  then  FAMILY.  If  a  query  is  executed  with  no  given 
information,  the  order  in  which  items  will  be  returned  to  the  screen 
is  by  DODIC.  If  a  particular  family  is  the  value  being  queried,  the 
items  will  appear  in  DODIC  order  within  that  family. 

<b)  Further  limitation  dictates  that  a  user  can 
only  answer  with  a  ‘THOU"  or  ’EACH’  when  asked  for  the  unit  of 
measure  and  a  "Y*  or  ‘N‘  when  asked  whether  or  not  the  item  is  a  new 
materiel  fielding  item. 

(c)  The  user  is  unable  to  delete  any  item  through 
this  screen.  To  delete  an  item,  a  procedure  is  available  on  the  JSM 
Master  Menu  to  authorized  users  only. 

(2)  Read  terminal  type  to  set  function  keys  appropriately 
on  each  user’s  terminal. 


(3)  Read  ORACLE  identification  and  password  to  determine 
if  user  has  access  to  the  table  being  used  in  the  Item  Descriptors 
screen . 


(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  When  updating  value,  replace  old  value  in  ITEM  table 
with  new  value  as  inserted  to  the  screen,  based  on  key  identifier 
(DODIC. 


(6)  When  inserting  a  new  item  (record)  ,  enter  screen 
values  into  ITEM  table.  When  inserting  a  new  record,  the  following 
fields  are  mandatory: 
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r 

s 

la 


£ 

I 

$ 

r 

1 

I 


(a)  DODIC. 

(b)  FSC . 

(c)  Nomenclature. 

(d)  Fami ly  Code . 

(e)  Sub  Family  Code. 

(f)  New  Materiel  Fielding  (NMF) . 

(g)  Unit  of  Measure  (UOM) . 

(h)  Use  Code. 

e.  Output  -  Filled  screen  (see  figure  5.9. 1-1). 

f.  Security  -  The  Item  Descriptors  screen  displays  informa¬ 
tion  which  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system  will 
only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
table  in  the  PJSM  data  base: 

ITEM  -  contains  general  information  for  each  item.  Since  the  ITEM 
table  contains  the  main  identifiers  for  items  in  the  data  base,  it 
is  used  in  the  majority  of  the  input  screens. 

5.9.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case.  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  U3ed  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.9.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 
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Itea  Descriptors 


DODIC:  D563 


FSC:  1320 


SSV:  £28 100 


IS*:  1320-00-128-7339 

Soaenclature:  FEOJ  1551H  HE  ICM  M483A1  W/0/F02E 
Family:  3 
Sub-Faaily:  1 


INF  :  I 


Unit  of  Measure:  TH00 


Use  Code;  V 


Figure  5.9. 1-1.  Example  of  Item  Descriptors  Input  Screen  Filled 
with  Information 
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5.9.4  Error  Conditiona.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  that  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.9.5  Listings.  Program  listing  s  located  in  <SYSSA>SAXPGM>*INP . 

A  hardcopy  of  the  source  program  is  available  in  AMSMC-IIGS-HM. 
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5.10  Program.  Item  Planning  Parameters  Input  Screen  (JSM_2.INP) 

5.10.1  Program  Description.  The  Item  Planning  Parameters  screen  is 
written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to 
create  the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is 
utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  2. 

a.  Identification  -  The  source  code  for  the  Item  Planning 
Parameters  screen  is  identified  by  a  file  labeled  JSM_2.INP.  After 
being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
JSM2 . FRM,  both  located  in  SAXPGM>«INP. 

b.  Functions  -  The  input  screen,  Item  Planning  Parameters, 
retrieves  item  information  from  two  PJSM  data  base  tables  titled, 
ITEM  and  ITEM_DATA.  The  purpose  of  this  screen  is  to  review,  input, 
or  update  specified  model  parameters  that  can  be  set  up  for 
individual  items.  The  general  item  information  that  appears  in 
block  1  at  the  top  of  t,his  screen  cannot  be  updated,  inserted,  or 
deleted  through  this  screen.  These  functions  have  to  be  performed, 
either  through  the  Item  Descriptors  screen  or  a  special  data  base 
procedure  that  is  found  on  the  JSM  Master  Menu. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base: 


From 

ITEM 

table : 

m 

FSC  - 

--  CHARACTER 

(4)  . 

12) 

DODIC 

---  CHARACTER  (4 

(3) 

SSN  - 

--  CHARACTER 

(6)  . 

(4) 

NSN  - 

--  CHARACTER 

( 16) 

(5) 

ISN  - 

--  CHARACTER 

(5)  . 

(6)  Nomenclature 


CHARACTER  (48). 
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From 

ITEM_DATA  table: 

m 

FY  ---  INTEGER  (2) . 

(2) 

RCN  ---  INTEGER  (2) . 

(3) 

Unit  Price  (UNIT_PRICE)  --- 

NUMBER  (F12.4) . 

(4) 

Priority  (PRJ.)  ---  INTEGER 

(3)  . 

(5) 

Inventory  Protect  (DRAWDN) 

---  INTEGER  (3). 

(6) 

Readiness  Buildup  (BUILDUP) 

---  INTEGER  (3) 

<  7) 

Non  AAO  Costs  (P0M_C0ST)  -- 

-  NUMBER  (F6.  1)  . 

(8) 

Maximum  Inventory  Allowed  (MIA)  - 

INTEGER  (10). 

d.  Processing  - 

U'  The  Item  Planning  Parameters  screen  incorporates  a 
f  ew  unique  rules  : 


(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information.  These  rules  include  the  use  of  a 
predelete  and  preselect  statement,  in  addition  to  answering  'No"  to 
the  update  field  prompt. 

(b)  The  second  block,  which  relates  to  the  ITEM_DATE 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by  FY. 
The  da^a  which  relate  to  the  DODIC  in  block  1  will  be  displayed  in 
order  of  FY. 


(2)  Read  terminal  type  to  set  function  keys  appropriately 
on  each  user’s  terminal. 

(3>  Read  ORACLE  identification  and  password  to  determine 
if  user  has  access  to  the  tables  being  used  in  the  Item  Planning 
Parameters  screen. 
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(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  t^e  two  blocks  being  the 
DODIC  of  the  item.  The  information  in  block  2  is  retrieved  from  the 
ITEM_DATA  table. 

(6)  Updating  and  inserting  new  information  about  an  item 
can  only  be  accomplished  in  block  2  of  the  Item  Planning  Parameters 
screen.  The  screen  automatically  checks  to  see  if  there  is  an 
active  RCN.  If  not,  a  message  will  state  that  to  the  user.  If 
there  is  an  active  RCN,  the  screen  will  take  all  of  the  information 
that  can  be  updated/ inserted  for  that  DODIC  and  place  the  new  data 
into  the  maximum  RCN  that  is  active.  A  user  is  unable  to  update 
baseline  data  which  are  stored  under  RCN  zero.  The  user  cannot 
delete  information  that  is  being  retrieved  from  the  ITEM_DATA  table. 
When  inserting  a  new  record,  the  following  fields  are  mandatory: 

(a)  FY. 

(b)  Priority  (PRI 1 . 

e.  Output  -  Filled  screen  (see  figure  5.10.1-1). 

f.  Security  -  The  Item  Planning  Parameters  screen  displays 
information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system  will 
only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 


(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 


(2) 

about  each  item 
specific  goals, 
items  which  are 


ITEM_DATA  -  contains  essential  guideline  information 
for  a  particular  RCN.  If  an  item  does  not  have 
it  will  be  defaulted  to  general  rules  governing  all 
found  in  the  GOALS  table. 
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1 

M 


m 


Itei  Planning  Paraaeters 


FSC:  1315  DODIC:  C785  SSI:  E73400  MSI:  1315- 


Moaenclature:  CTG  120MM  TPCSDS-T  MB65 


ISM:  03266 


Inventory  Beadinegi  Mon-AAO  Maxima  Percent  of 
FT  BCI  Unit  Price  Priority  Protect  Buildup  Cost*  Inventory  Training 


88  0 

89  0 

90  0 

90  1 

91  0 

91  1 


597.7144 

591.6899 

742.1899 

581.5966 

724.81 

578.3041 

718.3 

574.7094 


Figure  5.10.1-1.  Example  of  Item  Planning  Parameters  Input  Screen 
Filled  with  Information 
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5.10.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  cate,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.10.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomp 1 i shed  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.10.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  comston  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.10.5  Listings .  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.11  Program.  Item  Production  Capac l ty /Staf f ing  Input  Screen 
l JSM_2 . INP) 

5.11.1  Program  Description,  The  Item  Production  Capaci ty/Staf i ing 
screen  i3  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3.  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  3. 

a.  Identification  -  The  source  code  for  the  Item  Production 
Capacity/Staffing  screen  is  identified  by  a  file  labled  JSM_3.INP. 
After  being  compiled  through  ORACLE  TAG,  a  run  file  is  created  named 
JSM3 . FRM,  both  located  in  SAXPGM>«INP. 

b.  Functions  -  The  input  screen.  Item  Production  Capacity/ 
Staffing,  retrieves  item  information  from  two  PJSM  data  base  tables 
titled,  ITEM  and  PRODT.  The  purpose  of  this  screen  is  to  review, 
input,  or  update  specific  production  information  about  each  item. 

The  general  item  information  that  appears  at  the  top  of  this  screen 
cannot  be  updated,  inserted,  or  deleted  here.  These  functions  have 
to  be  performed  either  through  the  Item  Descriptors  screen  or  a 
special  data  base  procedure  that  is  found  on  the  JSM  Master  Menu. 

c.  Input  - 

ill  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base: 

(a)  From  ITEM  table: 

( J_)  FSC - CHARACTER  (4). 

(2)  DODIC  ---  CHARACTER  (4). 

(3)  SSN  ---  CHARACTER  (6). 

(4_)  Nomenclature - CHARACTER  (48)  . 

(b)  From  PRODT  table: 

U)  Plant  (PLANT)  ---  CHARACTER  (2). 

(2)  Line  (LINE)  ---  INTEGER  (3). 
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(3)  1-8-5  Production  Rate  1 R 1 8 5 ) INTEGER  (9) 

(4)  1-8-5  Staffing  (S185)  ---  INTEGER  (4). 

(5)  2-8-5  Production  Rate  (R285)  ---  INTEGER  (9) 

(6)  2-8-5  Staffing  (S285)  ---  INTEGER  (4). 

(7)  Maximum  Procurement  Quantity  (MPQ)  - 

INTEGER  (7). 

(8)  Shifts  Available  (AVAIL)  ---  INTEGER  (1). 
d.  Processing  - 

(1)  The  Item  Production  Capacity/Staffing  screen  incor¬ 
porates  a  few  unique  rules. 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  cr  update 
general  item  information.  These  rules  include  the  user  of  a  predelete 
and  preselect  statement,  in  addition  to  answering  no  to  the  update 
field  prompt. 


(b)  The  second  block  will  not  allow  the  user  to 
delete  information  that  is  being  retrieved  from  the  PRODT  table.  In 
order  to  delete  this  information,  the  user  would  have  to  contact  the 
PMO . 


(2)  Read  terminal  type  to  set  function  keys  appropriately 
on  each  user's  terminal. 

(3)  Read  ORACLE  identification  and  password  to  determine 
if  user  has  access  to  the  tables  being  used  in  the  Item  Production 
Capacity/Staffing  screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
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(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  the  two  blocks  being  the 
D0D1C  of  the  item.  The  information  in  block  2  is  retrieved  from  the 
PRODT  table. 

(6)  Updating  and  inserting  new  information  about  an  item 
can  only  be  accomplished  in  block  2,  of  the  Item  Production  Capacity/ 
Staffing  screen.  The  screen  automatically  checks  to  see  if  there  is 
an  active  RCN.  If  not,  a  message  will  state  that  to  the  user.  If 
there  is  an  active  RCN,  the  screen  will  take  all  of  the  information 
that  can  be  updated/inserted  for  that  DODIC  and  place  the  new  data 
into  the  maximum  RCN  that  is  active.  A  user  is  unable  to  update 
baseline  data  which  are  stored  under  RCN  zero.  The  user  cannot 
delete  information  that  is  being  retrieved  from  the  PRODT  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory: 

(a)  Plant  (PLANT). 

(b)  Line  (LINE) . 

(c)  1-8-5  Production  Rate  (R185) . 

(d)  1-8-5  Staffing  (S185)  . 

(e)  2-8-5  Production  Rate  (R285) . 

(f )  2-8-5  Staffing  (S285) . 

(g)  Shifts  Available  (AVAIL). 

e.  Output  -  Filled  screen  (see  figure  5.11.1-1). 

f.  Security  -  The  Item  Production  Capaci ty /Staf f ing  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system  will 
only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  tie  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  th° 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 
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Itea  Production  Capacity/Staffing 

FSC:  1320 

DODIC:  DS63  SSI:  E2B100 

Ioa»nclatur«: 

PBOJ  15m  HE  I CM  M46341  M/0/F0ZE 

Plant  Lin* 

1-8-5  2-8-5 

Bate  Staff  Bat*  Staff  MPQ 

Shift 

Availability 

Figure  5.11.1-1.  Example  of  Item  Production  Capacity/Staffing 
Input  Screen  Filled  with  Information 
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(2)  PRODT  -  contains  eeesential  production  information 
about  each  item.  This  table  contains  the  baseline  production  data 
for  all  items  in  the  system. 

5.11.2  Conventions 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  value  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  haveing  WHERE  and  ORDER  BY  clauses  in  their  program. 

These  clauses  are  used  to  group  data  in  a  particular  block  which 
relates  to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE 
and  ORDER  BY  clause  set  up  by  FY,  the  screen  would  organize  the  data 
for  that  block  in  ascending  order  by  year. 

5.11.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.11.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  mean 
that  the  user  does  not  have  access  to  that  table. 

5.11.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM>iINP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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r . 12  Program.  General  Plant  Data  Input  Screen  (JSM_4.INP) 

5.12.1  Program  Description.  The  General  Plant  Data  screen  is 
written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to 
create  the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is 
utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  4. 

a.  Identification  -  The  source  code  for  the  General  Plant 
Data  screen  is  identified  by  a  file  labeled  JSM_4.INP.  After  being 
compiled  through  ORACLE  IAG,  a  run  file  is  created  named  JSM_4.FRM, 
both  located  in  SAXPGM>*INP. 

b.  Functions  -  The  input  screen,  General  Plant  Data, 
retrieves  plant  information  from  two  PJSM  data  base  tables  titled, 
PLANT  and  STAFF.  The  purpose  of  this  screen  is  to  review,  input,  or 
update  specific  staffing  information  about  each  plant.  The  general 
plant  information  that  appears  at  the  top  of  this  screen  cannot  be 
deleted  here.  Once  specific  data  have  been  entered  in  the  second 
half  of  the  screen,  they  too  cannot  be  deleted  through  this  screen. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base : 

(a)  From  PLANT  table: 

(U  Plant  Name  (NAME)  ---  CHARACTER  (15). 

(2)  Plant  Code  (PLANT)  ---  CHARACTER  (2). 

(3)  Type  of  Plant  (TYPE)  ---  CHARACTER  (4) . 

(4)  Production  Overhead  Factor  (PR0D_0H_FAC)  - 

NUMBER  (F6. 4) . 

(5)  Non-Production  Overhead  Factor 
(NON  PROD  OH  FAC )  ---  NUMBER  (F6.4). 
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(b)  From  STAFF  table: 


(  n 

FY  ---  INTEGER  (2) . 

(2) 

RCN  ---  INTEGER  (3) . 

INTEGER  (5) . 

13) 

Direct  Labor  Employees 

(DIRECT)  --- 

INTEGER  (5)  . 

(4) 

OMA  Overhead  Employees 

( 0MA_0H)  --- 

(5) 

Percent  of  the  Workload 

Attempting  to 

Achieved  (GOAL)  ---  INTEGER  (3). 
d.  Processing  - 

(1)  The  General  Plant  Data  screen  incorporates  a  few 
unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the 
PLANT  table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause 
which  is  by  NAME.  If  a  query  is  executed  with  no  given  information, 
plants  will  be  returned  to  the  screen  alphabetically.  The  first 
block  also  uses  a  rule  that  will  not  allow  the  user  to  delete 
general  plant  information. 

(b)  The  second  block,  which  relates  to  the  STAFF 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by  FY. 
The  data  which  relate  to  the  PLANT  in  block  1  will  be  displayed  in 
order  of  FY . 


(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

13)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  table  being  used  in  the  General  Plant 
Data  screen. 


(4)  From  PJSM  data  base,  PLANT  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  biock  2  with  the  tie  between  the  two  blocks  being  the 
2-digit  plant  code  fo  the  plant.  The  information  in  block  2  is 
retrieved  from  the  STAFF  table. 
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(6)  Updating  and  inserting  new  information  about  a 
plant  can  be  accomplished  in  block  1  and  2. 

(a)  When  a  user  updates  or  inserts  information  in 
block  1,  the  data  are  directly  placed  into  the  PLANT  table. 

(b)  When  a  user  attempts  to  update  or  insert  new 
information  in  block  2,  the  screen  automatically  checks  to  see  if 
there  is  an  active  RCN.  If  not,  a  message  will  state  that  to  the 
user.  If  there  is  an  active  RCN,  the  screen  will  take  all  of  the 
information  that  can  be  updated/ inserted  for  that  PLANT  and  place 
the  new  data  into  the  maximum  RCN  that  is  active.  Block  2  also  has 
formulas  programmed  in  the  sequel  statement  for  the  direct  labor 
field.  These  are  executed  once  a  value  for  the  direct  labor  is 
input  to  the  screen.  The  first  formula  multiples  the  production 
overhead  factor  and  the  direct  labor  and  places  the  rounded  value 
into  the  total  production  overhead  field.  The  second  formula 
multiplies  the  production  overhead  factor  and  the  direct  labor,  adds 
that  to  the  OMA  and  direct  labor,  and  multiplies  that  total  by  the 
non-production  overhead  factor.  The  rounded  total  is  then  inserted 
into  the  total  non-production  overhead  field.  Once  a  query  is 
executed,  the  screen  will  add  all  appropriate  fields  and  figure  the 
total  staff  available.  The  user  cannot  delete  information  that  is 
being  retrieved  from  the  STAFF  table. 

(c)  When  inserting  a  new  record,  the  following 
fields  are  mandatory: 

( 1_)  Plant  Name  (NAME)  . 

(2)  Plant  Code  (PLANT). 

(3)  Type  of  Plant  (TYPE). 

(4)  Production  Overhead  Factor  (PR0D_0H_FAC) . 

(5)  Non-Production  Overhead  Factor 

(N0N_PR0D_0H_FAC ) . 

(6)  FY. 

(7)  Direct  Labor  Employees  (DIRECT) . 

(8)  OMA  Overhead  Employees  (0MA_0H) . 

(9)  Percent  of  the  Workload  Attempting  to  be 

Achieved  (GOAL) . 
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e.  Output  -  Filled  screen  (see  figure  5.12.1-1). 

f.  Security  -  The  Qeneral  Plant  Data  screen  displays  infor¬ 
mation  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system 
will  have  access  only  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  PLANT  -  contains  general  information  for  each 
plant.  This  general  information  includes  the  production  overhead 
factors  and  the  non-production  overhead  factors. 

(2)  STAFF  -  contains  specific  staffing  data  about  each 
plant.  This  table  contains  the  baseline  staffing  data  for  all 
plants  in  the  system. 

5.12.2  Conventions 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.12.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.12.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.12.5  Listings .  Program  listing  is  located  in  <SYSSA>SAXPQM>iINP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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Figure  5.12.1-1.  Example  of  General  Plant  Data  Input  Screen  Filled 
with  Information 
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5 . 13  Program.  Primary  Component  Information  Input  Screen 
( JSM_5 . INP) 

5.13.1  Program  Description.  The  Primary  Component  Information 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3.  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  5. 

a.  Identification  -  The  source  code  for  the  Primary  Com¬ 
ponent  Information  screen  is  identified  by  a  file  labeled  JSM_5.INP. 
After  being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
JSM_5 . FRM,  both  located  in  SAXPGM>*INP. 

b.  Functions  -  The  input  screen.  Primary  Component  inxor.ia- 
tion,  retrieves  primary  component  relationships  between  items  as 
well  as  their  usage  factors.  This  information  comes  from  two  PJSM 
data  base  tables  titled,  ITEM  and  1CT.  The  purpose  of  this  screen 
is  to  review,  input,  or  update  specific  component  information  about 
each  item.  The  general  item  information  that  appears  at  the  top  of 
this  screen  cannot  be  updated,  inserted,  or  deleted  through  this 
screen.  These  functions  have  to  be  performed  through  the  Item 
Descriptors  screen  or  a  special  data  base  procedure  that  is  found  on 
the  JSM  Master  Menu. 

c.  Input  - 

11)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base : 

(a)  From  ITEM  table: 

U)  FSC  ---  CHARACTER  (4). 

(2)  DODIC  ---  CHARACTER  (4). 

(3)  SSN  ---  CHARACTER  (6). 

(4)  Nomenclature  ---  CHARACTER  (48). 
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(b)  From  ICT  table: 

(1_)  Component  DODIC  (COMP)  ---  CHARACTER  (4). 

(2)  Usage  Factor  (PF)  ---  NUMBER  (F11.6). 

(c)  In  block  2,  the  FSC  and  Nomenclature  for  the 
components  are  retrieved  from  the  ITEM  table. 

d.  Processing  - 

(1)  The  Primary  Component  Information  screen  incorpo¬ 
rates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information. 

(b)  The  second  block,  which  relates  to  the  ICT 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
type.  Only  the  primary  components  related  to  the  DODIC  in  block  1 
will  be  displayed. 

(21  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Primary 
Component  Information  screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  the  two  blocks  being  the 
DODIC  of  the  item.  The  information  in  block  2  is  retrieved  from  the 
ICT  table. 

(6)  Updating  and  inserting  new  information  about  an 
item  can  only  be  accomplished  in  block  2,  or  the  ICT  table.  When 
executed,  the  screen  will  replace  the  old  value  in  the  ICT  table 
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with  the  new  value  the  user  has  input.  The  user  cannot  delete 
information  that  is  being  retrieved  from  the  ICT  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory. 

(a)  Component  DODIC  (COMP) . 

(b)  Usage  Factor  (PF) . 

e.  Output  -  Filled  screen  (see  figure  5.13.1-1). 

f.  Security  -  The  Primary  Component  Information  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2)  ICT  -  contains  all  end  item/component  relation¬ 
ships.  This  table  also  contains  all  of  the  usage  factors  of  the 
components  and  it  lists  the  type  of  component,  primary  or  secondary. 

5.13.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.13.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 
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Figure  5.13.1-1.  Example  of  Primary  Component  Information  Input 
Screen  Filled  with  Information 
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5.13.4  Error  Condition*.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was.  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 

5.13.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>AINP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.14  Program .  Yearly  Consumption  Requirements  Input  Screen 
l JSM_6 .  INP ) 

5,14.1  Program  Description.  The  Yearly  Consumption  Requirements 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1.  Screens  for  Review  or  Update,  and  finally 
as  option  6. 

a.  Identification  -  The  source  code  for  the  Yearly  Comsump- 
tion  Requirements  screen  is  identified  by  a  file  labeled  JSM_6.1NP. 
After  being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
JSM_6 . FRM,  both  located  in  SAXPGM) SINP . 

b.  Functions  -  The  input  screen.  Yearly  Consumption 
Requirements,  retrieves  item  information  from  two  pJSM  data  base 
tables  titled,  ITEM  and  REQTS_ARMY.  The  purpose  of  this  screen  is 
for  reviewing  the  training  requirements  for  each  item.  The  general 
item  information  that  appears  at  the  top  of  this  screen  cannot  be 
updated,  inserted,  or  deleted  through  this  screen.  These  functions 
have  to  be  performed  either  through  the  Item  Descriptors  screen  or  a 
special  data  base  procedure  that  is  found  on  the  JSM  Master  Menu. 

c.  Input  - 

ll)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification  and  password. 

( 2j  From  data  base : 

(a!  From  ITEM  table: 


m 

FSC  --- 

CHARACTER 

(41. 

(2) 

DODIC  - 

--  CHARACTER  14 

(3! 

SSN  --- 

CHARACTER 

16)  . 

<41 

NSN  --- 

CHARACTER 

(  16) 

(5) 

ISN  --- 

CHARACTER 

(5)  . 

(6)  Nomenclature 


CHARACTER  (48/. 
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From 

REQTEARMY  table: 

([) 

FY  ---  INTEGER  (?>. 

(2) 

Package  Level  ( PKGL )  ---  INTEGER 

(2) 

(3) 

Required  Quantity  (QUANTITY)  - 

INTEGER  (10; 

d.  Processing  - 

(1)  The  Yearly  Consumption  Requirements  screen  incorpo¬ 
rates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
tabic,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  BODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  ls  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 

( b )  The  second  through  sixth  blocks,  which  relate 
to  REQTSARMY  table,  also  use  default  WHERE  and  ORDER  BY  clauses 
which  are  by  FY.  The  data  which  relate  to  the  DODIC  in  block  1  will 
be  displayed  in  order  of  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Yearly 
Consumption  Requirements  screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2,  3.  4,  b,  or  6  with  the  tie  between  the  blocks 
being  the  DODIC  of  the  item.  The  information  in  blocks  2  through  5 
is  retrieved  from  the  REQTS_ARMY  table. 

i 5)  The  screen  incorporates  rules  designed  specifically 
for  the  user  which  only  allows  data  that  equal  certain  package 
levels  to  be  displayed.  For  this  screen,  they  are  the  packages 
considered  training  requirements.  Another  rule  incorporates  logic 
to  search  the  REQTS_ARMY  tabie  for  training  requirements.  If  the 
screen  fails  to  find  any.  it  will  retrieve  the  requirement  from  a 
preset  item.  This  item  simply  has  a  zero  as  its  requirement. 
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(7)  Certain  rules  will  not  allow  the  user  to  delete, 
insert,  or  update  general  item  information,  RCN  information,  or  any 
output  results.  These  rules  include  the  use  of  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  fuels 
prompt . 

e.  Output  -  Filled  screen  (see  figure  5.14.1-1). 

f.  Security  -  The  Yearly  Consumption  Requirements  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  IJSM  system 
will  only  have  access  through  the  F'JSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

1 )  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  tabie  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  m  the  majority  of  the  input  screens. 

(2)  REQTS_ARMY  -  contains  all  of  the  Army  requirements 
for  each  item.  This  table  is  constructed  with  a  column  where  new 
requirements  are  stored  until  they  can  be  verified.  This  ensures 
that  baseline  data  will  not,  be  deleted  accidently. 

5.14.2  Conventions . 

a.  The  data  stored  in  ORACLE  ate  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case.  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.14.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  ‘.he  input  screen 
with  data  in  the  corr espond i ng  ORACLE  tables. 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1967 


5.14.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 


5.14.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>SINP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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2.  PROGRAM  ID 

5.14 

3.  PROGRAM  IAME 

JSM  8.  IBP 

4.  RE?  iO./DATE 

5.  DESCRIPTION  OF  REVISION 

I 


Si  FORM  4752-1,  iFI  83  REPLACES  DA  FROM  5752,  107  78,  IBICB  IS  OBSOLETE. 
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5.15  Program.  Production  Project  Specification  Input  Screen 
( JSM_7 .  INP) 

5.15.1  Program  Description.  The  Production  Project  Specification 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilised  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  7. 

a.  Identification  -  The  source  code  for  the  Production 
Project  Specification  screen  is  identified  by  a  file  labeled 
JSM_7.INP.  After  being  compiled  through  ORACLE  IAG,  a  run  file  is 
created  named  JSM_7.FRM.  both  located  in  SAXPGM.'S  INP . 

b.  Functions  -  The  input  screen,  Production  Project 
Specification,  retrieves  item  information  from  two  FJSM  data  base 
tables  titled,  PROJECT  and  PR0DT_FY.  The  purpose  of  this  screen  is 
to  review,  input,  or  update  specific  project  data  that  are  related 
to  an  item.  The  general  item  information  that  appears  at  the  top  of 
this  screen  cannot  be  updated,  inserted,  or  deleted  through  this 
screen.  These  functions  have  to  be  performed  either  through  the 
Item  Descriptors  screen  or  a  special  data  base  procedure  that  is 
found  on  the  JSM  Master  Menu. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base: 

(a)  From  PROJECT  table: 

m  Project  Code  (PROJECT)  ---  CHARACTER  (8) . 

(2)  Planning  Year  (PLAN_YR!  ---  INTEGER  (2). 

(3)  Cost  of  the  Project  (COST)  ---  NUMBER  (F7.1) 

e.g. ,  XXXXXXX.X. 

(4)  Title  of  Project  (TITLE)  ---  CHARACTER  (30) . 
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INTEGER  (7) . 

INTEGER  (10). 


(b)  From  PR0DT_FY  table: 

m  DODIC  ---  CHARACTER  (4). 

(2)  RCN  ---  INTEGER  (2)  . 

(3)  Plant  (PLANT)  ---  CHARACTER  (2). 

(4!  Line  (LINE)  ---  INTEGER  (3). 

(5)  Month  Available  (MO)  ---  INTEGER  (2). 

(6)  FY  ---  INTEGER  (2) . 

(7)  1-8-5  Production  Rate  (R185)  ---  INTEGER  (9). 

(8)  1-8-5  Staffing  ( S 1 85 )  ---  INTEGER  (4). 

(9)  2-8-5  Production  Rate  (R285)  -  INTEGER  (9) . 

(lj))  2-8-5  Staffing  (S285)  ---  INTEGER  (4). 

(HO  Shifts  Available  (AVAIL)  ---  INTEGER  (1). 

(12)  Minimum  Procurement  Quantity  (MPQ)  - 

(13)  Maximum  Production  Allowed  (MPA)  - 


d.  Processing  - 

(1)  The  Production  Project  Specifications  screen 
incorporates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the 
PROJECT  table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  c1  vise 
which  is  by  project  code.  If  a  query  is  executed  with  no  given 
information,  projects  will  be  returned  to  the  screen  in  ascending 
order.  These  rules  include  the  use  of  a  predelete  statement,  in 
addition  to  answering  no  to  the  update  field  prompt. 

(b)  The  second  block,  which  relates  to  the 
PR0DT_FY  table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which 
is  by  DODIC.  The  data  which  relate  to  the  project  in  block  1  will 
be  displayed  m  DODIC  order. 
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(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Production 
Project  Specifications  screen. 

(4)  From  PJSM  data  base,  PROJECT  table,  read  informa¬ 
tion  associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  the  two  blocks  being  the 
2-digit  plant  code  of  the  plant.  The  information  in  block  2  is 
retrieved  from  the  PR0DT_FY  table. 

(6)  Updating  and  inserting  new  information  about  a 
project  can  be  accomplished  in  block  1  and  2. 

(a)  When  a  user  updates  or  inserts  information  in 
block  1,  the  data  are  directly  placed  into  the  PROJECT  table. 

(b)  When  a  user  attempts  to  update  or  insert  new 

information  in  block  2,  the  screen  automatically  checks  to  see  if 
there  is  an  active  RCN.  If  not,  a  message  will  state  that  to  the 

user.  If  there  is  an  active  RCN,  the  screen  will  take  all  of  the 
information  that  can  be  updated/ inserted  for  that  PROJECT  and  place 
the  new  data  into  the  maximum  RCN  that  is  active.  A  user  is  unable 
to  update  baseline  data  which  are  stored  under  RCN  zero.  The  user 
cannot  delete  information  that  is  being  retrieved  from  the  PR0DT_FY 
table . 

(c)  When  inserting  a  new  record,  the  following 
fields  are  mandatory: 

(1_)  Project  Code  ( PROJECT  I  . 

(2)  Planning  Year  (PLAN_YR) . 

(3)  Cost  of  the  Project  (COST) . 

(4)  Title  of  the  Project  (TITLE). 

(5)  DODIC. 

(6)  Plant  (PLANT). 

(7)  Line  (LINE) . 
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(8)  Month  Available  (AVAIL). 

(9)  FY. 

(10)  1-8-5  Production  Rate  (R185) . 

(U)  1-8-5  Staffing  (S185)  . 

(12)  2-8-5  Production  Rate  (R285). 

(13.)  2-8-5  Staffing  (S285). 

( 1_4 )  Shifts  Available  (AVAIL). 

e.  Output  -  Filled  screen  (see  figure  5.15.1-1). 

f.  Security  -  The  Production  Project  Specification  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  PROJECT  -  contains  general  information  for  each 
project.  This  table  contains  the  identifiers  from  which  data  for 
all  projects  relate  to. 

(2)  PR0DT_FY  -  contains  item  data  that  are  based  on 
various  projects.  This  table  contains  the  specific  data  for  an  item 
based  on  a  project. 

5 . 15.2  Conventions. 


a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 
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Production  Project  Specifications 
PBOJECT:  5852386  PLAHIIG  FT:  85  COSTKM):  10 
TITLE:  EXP  C0MB11SD  EPPECTS  M01ITI01 

Date  1-8-5  2-8-5  Sft  Min  Proc  Max  Prod 


D0D1C 

1C1 

Pit 

Line 

Mon-TB 

Bate 

Staff 

Bate  Staff  A»1  Quantity  Allowed 

1135 

1 

xs 

131 

3  87 

3330 

375 

8325  750  1 

Figure  5.15.1-1.  Example  of  Production  Project  Specification  Input 
Screen  Filled  with  Information 
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>v 


Liij i ? — Verification  Procedurea.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

— ) $ •  1 — Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occured,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

^-1S ■ 5 — kfating8 .  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5 . 16  Program.  Army  Requirements  Stratification  Input  Screen 
(JSM_8.INP> 

5.16.1  Program  Description.  The  Army  Requirements  Stratification 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  i^he  form  necessary  to  produce  a  screen.  The  ORACLE 
TAP  is  utilised  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  8. 


i.  Identification  -  The  source  code  for  the  Army  Require¬ 
ments  Stratification  screen  is  identified  by  a  file  labeled 
JSM_8.INF.  After  being  compiled  through  ORACLE  IAG,  a  run  file  is 
created  named  J3M_8.FRM,  both  located  in  SAXPGM>$INP. 

b.  Functions  -  The  input  screen,  Army  Requirements  Strati¬ 
fication,  retrieves  item  information  from  two  PJSM  data  base  tables 
titled,  ITEM  and  REQTSARMY.  The  purpose  of  this  screen  is  for 
reviewing  all  Armv  requirements  for  each  item.  The  general  item 
information  that  appears  at  the  top  of  this  screen  cannot  be  updated, 
inserted,  or  deleted  through  this  screen.  These  functions  ha'-®  to 
be  performed  through  either  the  Item  Descriptors  screen  or  a  special 
data  base  procedure  that  is  found  on  the  JSM  Master  Menu. 

:.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

! 2 )  From  data  base : 

fa)  From  ITEM  table: 

(I)  FSC  -  CHARACTER  (4). 

i 2)  DODIC  ---  CHARACTER  (4). 

(3)  5SN  - --  CHARACTER  (6) . 

(4)  NSN  -  -  CHARACTER  ( 16)  . 

f5)  ISM  —  CHARACTER  !5i . 

(6)  Nomenclature  -  CHARACTER  (48). 
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(b)  From  REQTSARMY  table. 

tn  FY - INTEGER  (2)  . 

(2)  Package  Level  ( PKGL )  ---  INTEGER  (2) . 

(3)  Required  Quantity  (QUANTITY)  ---  INTEGER 
d.  Processing  - 

(1)  The  Army  Requirements  Stratification  screen  incor¬ 
porates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 

(b>  The  second  through  sixth  blocks,  which  relate 
to  REQTS_ARMY  table,  also  use  default  WHERE  and  ORDER  BY  clauses 
which  are  by  FY.  The  data  which  relate  to  the  DODIC  in  block  1  will 
be  displayed  in  order  of  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Army 
Requirements  Stratification  screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  blocks  2,  3,  4,  5,  or  6  with  the  tie  between  the  blocks 
being  the  DODIC  of  the  item.  The  information  in  blocks  2  through  6 
is  retrieved  from  the  REQTS_ARMY  table. 

(6)  The  screen  incorporates  rules  designed  specifically 
for  the  user  which  checks  if  the  item  is  a  New  Materiel  Fielding 
Item.  If  so.  the  screen  will  add  packages  2  through  7  and  place  th* 
total  in  package  i.  Another  rule  incorporates  logic  to  search  the 
R£QTS_ARMY  table  for  an  Army  requirement.  If  the  screen  fails  to 
find  any,  it  wni  retrieve  the  requirement  from  a  preset  item.  This 
item  simply  has  a  zero  as  Lts  requirement. 
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(7)  Certain  rules  include  'he  use  ci  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  field 
prompt . 


e.  Output  -  Filled  screen  (see  figure  5.16.1-1). 

f.  Security  -  The  Army  Requirements  Stratification  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2)  REQTS_ARMY  -  contains  all  of  the  Army  requirements 
tor  each  item.  This  table  is  constructed  with  a  column  where  new 
requirements  are  stored  until  they  can  be  verified.  This  ensures 
that  baseline  data  will  not  be  deleted  accidently. 

5.16.2  Convent  ions 


a.  The  data  stored  m  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case.  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  ail  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  m  ascending  order  by  year. 

5.16.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.16.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  whs.  o  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 
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FOB  TIKRIIG  OUT  •  Arsy  Bequirenents  Stratification 


FSC:  1320  DODIC:  D528  SSI:  £67800 

loaanclature:  FBOJ  155m  SMK  MB25  I/O  FUZE 

MSI:  1320-01- 

140-2611 

I SI:  0! 

Package 

1  IMF 

89 

90 

91 

92 

93 

2 

Test 

1000 

0 

0 

0 

0 

3 

41  IQ 

3000 

4000 

4000 

3000 

3000 

4 

OPS 

0 

0 

0 

0 

0 

5 

level  1  Training 

0 

0 

0 

0 

0 

6 

Depot  1 

0 

0 

0 

0 

0 

7 

Rar  Reserve  1.0 

159000 

188000 

191000 

189000 

189000 

8 

Var  Reserve  2.0 

129000 

145000 

149000 

148000 

148000 

9 

Mar  leserve  3.0 

139000 

148000 

151000 

153000 

153000 

10 

Level  2  Training 

0 

0 

0 

0 

0 

11 

Depot  2 

0 

0 

0 

0 

0 

12 

MOB  4 

0 

0 

0 

0 

0 

13 

VBSA  1.0 

18000 

18000 

18000 

18000 

18000 

14 

Rar  Reserve  4.0 

161000 

163000 

170000 

171000 

171000 

15 

RBS4  2.0 

2000 

2000 

2000 

2000 

2000 

16 

MOB  B 

0 

0 

0 

0 

0 

17 

Rar  Reserve  5.0 

103000 

106000 

117000 

112000 

112000 

Example  of  Army  Requirements  Stratification  Input 
Screen  Filled  with  Information 


Figure  5.16.1-1. 
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5.16.5  Listings ■  Program  listing  is  located  in 
A  hardcopy  of  the  source  program  is  available  in 


I 


< SYSSA) SAXPGM) *1 NP . 
AMSMC- IMS-HM. 
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5.17  Program.  Other  Customer  Requirements-Order  Input  Screen 
i JSM_9 . I NP ) 

5.17.1  Program  Description.  The  Other  Customer  Requirements-Order 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  9. 

a.  Identification  -  The  source  code  for  the  Other  Customer 
Requirements-Order  screen  is  identified  by  a  file  labeled  JSM_9.INP. 
After  being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
JSM_9 . FRM ,  both  located  i n  SAXPGM  SINP. 

b.  Functions  -  The  input  screen,  Other  Customer  Require¬ 
ments-Order.  retrieves  item  information  from  two  PJSM  data  base 
tables  titled.  ITEM  and  REQTS_OTHER.  The  purpose  of  this  screen  is 
for  reviewing  all  other  service  requirements  for  each  item.  The 
general  item  information  that  appears  at  the  top  of  this  screen 
cannot  be  updated,  inserted,  or  deleted  through  this  screen.  These 
functions  have  to  be  performed  through  either  the  Item  Descriptors 
screen  or  a  special  data  base  procedure  that  is  found  on  the  JSM 
Master  Menu. 


~.  Input  - 

11)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 


data 

base  : 

From 

ITEM  table: 

!  1  1 

FSC  ---  CHARACTER 

(4)  . 

(2) 

DODIT’  ---  CHAR  ACT 

ER  14)  . 

(3) 

SSN  ---  CHARACTER 

16)  . 

(4) 

NSN  ---  CHARACTER 

(16)  . 

(5) 

ISN  ---  CHARACTER 

i5i  . 

(6) 

Nomenclature  - 

CHARACTER 

v 


I  L  7 


MTm.Am  HmJC* 
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(b)  From  REQTS_0THER  table: 

(1)  FY - INTEGER  (2)  . 

(2)  Service  (SERVICE)  ---  CHARACTER  ( 2 ' . 

(3)  Quantity  (QUANTITY)  ---  INTEGER  ilOi. 
d.  Processing  - 

(1)  The  Other  Requirements-Order  screen  incorporates  a 
few  unique  rules : 


la)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC .  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 

(b)  The  second  through  sixth  blocks,  which  relate 
to  the  REQTS_OTHER  table,  also  use  default  WHERE  and  ORDER  BY 
clauses  which  are  by  FY.  The  data  which  relate  to  the  DODIC  in 
block  1  will  be  displayed  in  order  of  FY . 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Other 
Customer  Requirements-Order  screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2,  3,  4,  5,  or  6  with  the  tie  between  the  blocks 
being  the  DODIC  of  the  item.  The  information  in  blocks  2  through  6 
is  retrieved  from  the  REQTSOTHER  table. 


(6)  The  screen  incorporates  a  rule 
ly  for  the  user  which  checks  if  the  item  has  an 
requirement  for  each  service,  in  each  year.  If 
find  one,  it  will  retrieve  the  requirement  from 
item  simply  has  a  zero  as  its  requirement. 


designed  specificai- 
other  service 
the  screen  fails  to 
a  preset  i t e i.i .  in,.: 
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(7 i  Certain  rules  include  the  use  of  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  field 
prompt . 

e.  Output  -  Filled  screen  (see  figure  5.17.1-1). 

f.  Security  -  The  Other  Customer  Requirements-Order  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  m  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2.i  REQTS_0THER  -  contains  all  of  the  other  service 
requirements  for  each  item.  This  table  is  constructed  with  a  column 
where  new  requirements  are  stored  until  they  can  be  verified.  This 
ensures  that  baseline  data  wiil  net  be  deleted  accidently. 

5 . 17.2  Convent  ions . 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case.  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  a.i  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  v,he  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organise  the  data  for  that 
block  in  ascending  order  by  year. 

5.17.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  or.  the  input  screen 
with  data  :n  the  corresponding  ORACLE  tables. 

5.17.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Error  Display  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not.  have  access  to  that  table. 
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FOB  VIEWING  OILT  • 

iititittttiiitiiii  Other  Cuetoaer  Bequireaents-Orders 

FSC:  1305  DODIC:  A540  SSN:  E06903  ISM:  1305-  ISI:  00900 

loaenclature:  CTG  CAL  .50  LKD  4API  MB/1  TB  Ml? 

Prograa  Year/Production  Year 


Custoaer 

89 

90 

91 

92 

93 

AF 

Air  Force 

1499453 

666000 

666000 

666000 

666000 

AM 

Aray  Misc 

0 

0 

0 

0 

0 

CG 

Coaft  Guard 

149200 

149200 

149200 

149200 

149200 

FM 

FMS 

0 

0 

0 

0 

0 

MC 

Marine  Corps 

3118689 

1584486 

1404464 

1425186 

1425186 

■A 

lav  Air 

0 

0 

0 

0 

0 

IS 

lav  Sea 

13322534 

5525000 

7000000 

5859000 

6859000 

or 

Other 

1500000 

1500000 

1500000 

1500000 

1500000 

s  s 


Ll 
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5.17.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>SINP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 


fifth. 


D1  nv  4782*1,  in  83 


REPLACES  DA  FROM  5752,  lOY  78,  IBICB  IS  OBSOLETE. 
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5.18  Program.  Secondary  Component  Information  Input  Screen 
( JSM_ 10 . INP  > 

5.18.1  Program  Description.  The  Secondary  Component  Information 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Ir.out  Data,  then  option  1,  Screens  for  Review  Update,  and  finally 
as  option  10. 

a.  Identification  -  The  source  code  for  the  Secondary  Com¬ 
ponent  Information  screen  is  identified  by  a  file  labeled  JSM_10.INP 
After  being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
JSM_ 10 . FRM,  both  located  in  SAXPGM>$INP. 

b.  Functions  -  The  input  screen,  Secondary  Component  Infor¬ 
mation,  retrieves  secondary  component  relationships  between  items  as 
well  as  their  usage  factors.  This  information  comes  from  two  PJSM 
data  base  tables  titled,  ITEM  and  ICT.  The  purpose  of  this  screen 
is  to  review,  input,  or  update  specific  component  information  about 
each  item.  The  general  item  information  that  appears  at  the  top  of 
this  screen  cannot  be  updated,  inserted,  or  deleted  through  this 
screen.  These  functions  have  to  be  performed  through  the  Item 
Descriptors  screen  or  a  special  data  base  procedure  that  is  found  on 
the  JSM  Master  Menu. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base: 

(a)  From  ITEM  table: 

U>  FSC  -  CHARACTER  (4). 

(2)  DODIC  ---  CHARACTER  (4). 

(3)  SSN  ---  CHARACTER  (4) . 


(4)  Nomenclature 


CHARACTER  (48) . 
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(b)  From  ICT  table: 

m  Component  DODIC  (COMP)  ---  CHARACTER  (4). 

(2)  Usage  Factor  (PF)  ---  NUMBER  (FI  1.6). 

(c)  In  block  2,  the  FSC  and  Nomenclature  lor  the 
components  are  retrieved  from  the  ITEM  table. 

d.  Processing  - 

(1)  The  Secondary  Component  Information  screen  incorpo¬ 
rates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information. 

(b)  The  second  block,  which  relates  to  the  ICT 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
type.  Only  the  secondary  components  related  to  the  DODIC  in  block  1 
will  be  displayed. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  m  the  Secondary 
Component  Information  Screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  the  two  blocks  being  the 
DODIC  of  the  item.  The  information  in  block  2  is  retrieved  from  the 
ICT  table. 

(6)  Updating  and  inserting  new  information  about  an 
item  can  only  be  accomplished  in  block  2,  or  the  ICT  table.  When 
executed,  the  screen  will  replace  the  old  value  in  the  ICT  table 
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with  the  new  value  the  user  has  input.  The  user  cannot  delete 
information  that  is  being  retrieved  from  the  ICT  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory: 

(a)  Component  DODIC  (COMP). 

(b)  Usage  Factor  (PF) . 

e.  Output  -  Filled  screen  isee  figure  5.18.1-1). 

f.  Security  -  The  Secondary  Component  Information  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  rrom  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2)  ICT  -  contains  all  end  i tem/component  relation¬ 
ships.  This  table  also  contains  all  of  the  usage  factors  of  the 
components  and  it  lists  the  type  of  component,  primary  or  secondary. 

5 .  18.2  Conventions . 


a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case.  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 

option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 

clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 

BY  clause  set  up  by  FY,  the  Screen  would  organize  the  data  for  that 

block  m  ascending  order  by  year. 

5.18.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 
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Secondary  Component  Information 


FSC:  1320  DODIC:  D864  SSI:  E6S500 
lomemclature:  F80J  15101  EH  XMB04 


Secondary  Components 


FSC 

DODIC 

lomenclature 

OSAGE  FACTOR 

1320 

D532 

CHG  PROP  155HI  HB  ZOIE  M203  I/O  PRIMES 

1.05 

1300 

1285 

FUZE  MTSQ  1677 

1.05 

1390 

1523 

PRIMER  PERC  M82 

1.05 

1300 

T762 

FUZE  ET  M762 

1.05 

^4 
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5.18.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was.  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 

5.18.5  Listings .  Program  listing  is  located  in  <SYSSA>SAXPGM>#INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.19  Program .  bine  Descriptors  Input  Screen  (JSM_11.INF) 

5.19.1  Program  Description.  The  Line  Descriptors  screen  is  written 
using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to  create 
the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is  utilized 
to  convert  the  coding  into  a  screen.  Th's  screen  is  located  on  the 
PJSM  Master  Menu  under  option  3,  Review  or  Update  Input  Data,  then 
option  1,  Screens  for  Review  or  Update,  and  finally  as  option  11. 

a.  Identification  -  The  source  code  for  the  Line  Descrip¬ 
tors  screen  is  identified  by  a  fiie  labeled  JSM11.INP.  After  being 
compiled  through  ORACLE  IAG,  a  run  file  is  created  named  JSM_1)  FRM, 
both  located  in  SAXPGM>$INP. 

b.  Functions  -  The  input  screen,  Line  Descriptors, 
retrieves  general  line  information  from  the  PJSM  data  base  table 
titled  LINE.  The  purpose  of  this  screen  is  to  review  or  input 
general  line  data. 


c.  input  - 

(i)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

r2)  From  data  base:  From  LINE  table. 

fa)  Model  Line  Number  (LINE)  ---  INTEGER  (3!. 

i b f  Plant  Code  (PLANT)  ---  CHARACTER  (2). 

<c)  Line  Description  (LINE_DESC)  -  CHARACTER 

(40;  . 

d .  Processing  - 

ill  The  Line  Descriptors  screen  incorporates  a  few 
unique  rules: 


(a)  In  the  first  block,  which  pertains  to  the  LINE 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause,  which 
is  by  line  number.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  the  order  in  which  the  lines  will  be  returned  to  the  screen  is 
in  ascending  order. 

<b)  The  user  is  unable  to  delete  any  line  informa¬ 
tion  through  this  screen. 
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(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  users  terminal. 

(31  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  table  being  used  in  the  Line  Descrip¬ 
tors  screen. 

(4)  From  PJSM  data  base,  LINE  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  When  updating  value,  replace  old  value  in  LINE 
table  with  new  value  as  inserted  to  the  screen,  based  on  key  identi¬ 
fier  (LINE  NUMBER) . 

(6)  When  inserting  a  new  line  (record),  enter  screen 
values  into  LINE  table. 

(a)  When  inserting  a  new  record,  the  following 
fields  are  mandatory; 

(1_)  Model  Line  Number  (LINE). 

(2)  Plant  Code  (PLANT) . 

e.  Output  -  Filled  screen  (see  figure  5.19.1-i). 

f.  Security  -  The  Line  Descriptors  screen  displays  informa¬ 
tion  which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  FJSM  System 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
table  in  the  PJSM  data  base: 

(1)  LINE  -  contains  general  information  for  each  line. 
This  table’s  main  function  is  to  store  a  description  of  the  line  the 
model  is  using  for  simulation  purposes. 

5.19.2  Conventions. 

a.  The  data  stored  m  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case.  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  ail  of  the  fields  which  are  alphabetic. 
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Lin*  -  Plant  Cross-reference 


Line 

Code 

Plant  Male 

Description 

1 

IA 

IOWA 

LIVE  4A 

2 

IA 

IOWA 

LIVE  3 

3 

Ik 

IOWA 

LIVE  S 

4 

Ik 

IOWA 

LIVE  9 

5 

Ik 

IOWA 

LIVE  5A 

8 

I A 

IOWA 

LIVE  2 

7 

IA 

IOWA 

LIVE  2 

8 

IA 

IOWA 

LIVE  2 

9 

IA 

IOWA 

LIVE  3A 

10 

IA 

IOWA 

LIVE  1 

11 

IA 

IOWA 

LIVE  1 

12 

IA 

IOWA 

LIVE  1 

13 

IA 

IOWA 

LIVE  4B 

14 

IA 

IOWA 

LIVE  4B 

15 

IA 

IOWA 

16 

IA 

IOWA 

17 

IA 

IOWA 

18 

IA 

IOWA 

Figure  5.19.1-1.  Example  of  Line  Descriptors  Input  Screen  Filled 
with  Information 
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b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 


5.19.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 


5.19.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was.  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 


5 . 19.5  Listings .  Program  listing  is  located  in  <SYSSA>SAXPGM>SINP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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PB06BAM  UVI8I0I 

For  me  of  this  fora,  see  TB  18-111;  the  proponent  agency 


ii  DCSOPS . 


BATE 

30  lov  87 


PB0G&AM  ID 

5,19 _ 

BET  MO. /DATE 


PBOQBAM  MAKE 

JSM  11. IIP 


DESCBIPTI01  OF  BETISIOM 


DA  rOIM  4792-1,  APB  83 


BEPLACES  DA  FBOM  5752,  MOV  78,  WHICH  IS  OBSOLETE. 
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5.20  Program.  update  or  Display  Army  Requirements  Input  Screen 
(JSM_12 . INP) 

5.20.1  Program  Description.  The  Update  or  Display  Army 
Requirements  Input  screen  is  written  using  ORACLE  I AF .  An  ORACLE 
process  called  IAG  is  used  to  create  the  form  necessary  to  produce  a 
screen.  The  ORACLE  I AF  is  utilised  to  convert  the  coding  into  a 
screen.  This  screen  is  located  on  the  PJSM  Master  Menu  under  option 
3,  Review  or  Update  Input  Data,  then  option  1,  Screens  for  Review  or 
Update,  and  finally  as  option  12. 

a.  Identification  -  The  source  code  for  the  Update  or 
Display  Army  Requirements  Input  screen  is  identified  by  a  file 
labeled  JSM_!2.INP.  After  being  compiled  through  ORACLE  IAG  a  run 
file  is  created  named  JSM_ 12 . FRM,  both  located  in  SAXPGM>*INF. 

b.  Functions  -  The  input  screen,  Update  or  Display  Army 
Requirements,  retrieves  item  information  from  two  PJSM  data  base 
tables  titled,  ITEM  and  REQTS_ARMY.  The  purpose  of  this  screen  is 
to  review,  insert,  or  update  Army  requirements  for  each  item.  The 
general  item  information  that  appears  at  the  top  of  this  screen 
cannot  be  updated,  inserted,  or  deleted  through  this  screen.  These 
functions  have  to  be  performed  through  the  Ite«.  Descriptors  screen 
or  a  special  data  base  procedure  that  is  found  on  the  JSM  Master 
Menu . 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base : 

(a)  From  ITEM  table: 

(1)  FSC  - --  CHARACTER  (4) . 

(2)  DODIC  ---  CHARACTER  (4). 

13!  SSN  ---  CHARACTER  (6). 

14!  NSN  ---  CHARACTER  (16) . 

(5)  ISN  - --  CHARACTER  (5) . 

l 6 l  Nomenclature  ---  CHARACTER  (48). 
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\V 


( 10)  . 


*  b)  From  REQTS_ARMY  table: 

(1.)  Fackage  Level  (PKGL)  ---  INTEGER  (2). 

(2)  FY  -  INTEGER  (2) . 

(3)  Required  Quantity  (QUANTITY)  ---  INTEGER 

(4)  Quantity  (CHANGE)  ---  INTEGER  (10). 
d.  Processing  - 


(1)  The  Update  or  Display  Army  Requirements  screen 
incorporates  a  few  unique  rules: 


(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information. 


(b)  The  second  block,  which  relates  to  REQTS_ARMY 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by  FY. 
The  data  which  relate  to  the  DODIC  in  block  1  will  be  displayed  in 
order  of  FY. 


(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Update  or 
Display  Army  Requirements. 

> 4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

it)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  the  two  blocks  being  the 
DODIC  of  the  item.  The  information  in  block  2  is  retrieved  from  the 
REQTS  ARMY  table. 


\'o 
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(6)  Updating  and  inserting  new  information  about  an 
item  can  only  be  accomplished  in  block  2  of  the  Update  or  Display 
Army  Requirements  screen.  When  updating  an  item,  the  user  will 
insert  the  new  requirement  into  the  new  quantity  field  lor  the 
corresponding  package  level  and  year.  The  screen  will  compute  the 
difference  between  the  original  quantity  and  the  new  quantity  and 
insert  that  difference  into  the  Change  field.  If  there  is  no 
revised  quantity,  the  new  quantity  field  will  remain  blank.  Users 
can  insert  new  requirements  by  inputting  the  year,  package  level, 
and  new  value.  The  user  cannot  delete  information  that  is  being 
retrieved  from  the  REQTS_ARMY  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory: 

(a)  Package  Level  (PKGL). 
lb)  FY. 


(c)  Quantity  (CHANGE). 

e.  Output  -  Filled  screen  (see  figure  5.20.1-1). 

f.  Security  -  The  Update  or  Display  Army  Requirements 
screen  displays  information  which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  PJSM  system 
will  only  hate  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 


(l)  ITEM  -  contains  general  information  lor  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  item  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2 i  REQTS_ARMY  -  contains  all  of  the  Army  requirements 
for  each  item.  This  table  is  constructed  with  a  column  where  new 
requirements  are  stored  until  they  can  be  verified.  This  ensures 
that  baseline  data  will  not  be  deleted  accidently. 

5.20.2  Conventions. 


a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  tre^t 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 
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Army  Requireaents  Input  Screen 


FSC:  1320  DODIC:  D528  SSi:  E67800  MSV:  1320-01-140-2611  ISM:  08453 


loaenclature:  P20J  155MCMK  N825  W/0  FUZE 


Package  Level 


2  Test 

3  AIIQ 
3  AIIQ 
3  AIIQ 
3  AIIQ 
3  AIIQ 
3  AIIQ 

7  War  Reserve  1.0 
7  tar  Reserve  1.0 
7  far  Reserve  1.0 
7  far  Reserve  1.0 
7  War  Reserve  1.0 


FT 

Quantity 

69 

1000 

88 

3000 

89 

3000 

90 

4000 

91 

4000 

92 

3000 

93 

3000 

88 

158000 

89 

159000 

90 

188000 

91 

191000 

92 

189000 

Re*  Quantity 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


Figure  5.20.1-1.  Example  of  Update  or  Display  Army  Requirements 
Input  Screen  Filled  with  Information 
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b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.20.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.20.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was.  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 

5.20.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>«INP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.21  Program,  Update  or  Display  Other  Service  Requirements  Input 
Screen  ( JSM_ 1 3 . I NP ) 

5.21.1  Program  Description.  The  Update  or  Display  Other  Service 
Requirements  Input  screen  is  written  using  ORACLE  IAF.  An  ORACLE 
process  called  IAQ  is  used  to  create  the  form  necessary  to  produce  a 
screen.  The  ORACLE  IAP  is  utilized  to  convert  the  coding  into  a 
screen.  This  screen  is  located  on  the  PJSM  Master  Menu  under  option 
3,  Review  or  Update  Input  Data,  then  option  1.  Screens  for  Review  cr 
Update ,  and  finally  as  option  13. 

a.  Identification  -  The  source  code  for  the  Update  or 
Display  Other  Service  Requirements  Input  screen  is  identified  by  a 
file  labeled  JSM_13.INP.  After  being  compiled  through  ORACLE  IAG  a 
run  file  is  created  named  JSM_13.FRM,  both  located  m  SAXPGM>$INF. 

b.  Functions  -  The  input  screen,  Update  or  Display  Other 
Service  Requirements,  retrieves  item  information  from  two  PJSM  data 
base  tables  titled,  ITEM  and  REQTS_OTHER.  The  purpose  of  this 
screen  is  to  review,  insert,  or  update  other  service  requirements 
for  each  item.  The  general  item  information  that  appears  at  the  top 
of  this  screen  cannot  be  updated,  inserted,  or  deleted  through  this 
screen.  These  functions  have  to  be  performed  through  either  the 
Item  Descriptors  screen  or  a  special  data  base  procedure  that  is 
found  on  the  JSM  Master  Menu. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base: 

(a)  From  ITEM  table: 


m 

FSC  --- 

CHARACTER 

(4)  , 

(2) 

DODIC  - 

--  CHARACTER  (4) 

(31 

SSN  --- 

CHARACTER 

(6)  . 

(4) 

NSN  --- 

CHARACTER 

(  16)  . 

(5) 

ISN  --- 

CHARACTER 

(5)  . 

(6)  Nomenclature 


CHARACTER  (48), 
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(b)  From  REQTSOTHER  table: 

in  Service  Code  (SERVICE)  ---  CHARACTER  i2). 

(2)  FY  -  INTEGER  (2) . 

(3)  Unit  Price  (UNIT_PRICE)  ---  NUMBER  (F12.4). 

(4)  Required  Quantity  (QUANTITY)  -  INTEGER  (10 

(5)  Quantity  (CHANGE)  ---  INTEGER  (10). 
d.  Processing  - 

( I •  The  Update  or  Display  Other  Service  Requirements 
screen  incorporates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information.  These  rules  include  the  use  of  a 
predelete  and  preselect  statement,  in  addition  to  answering  no  to 
the  update  field  prompt. 

(b)  The  second  block,  which  relates  to  REQTS_0THER 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by  FY . 

The  data  which  relate  to  the  DODIC  in  block  1  will  be  displayed  in 
order  of  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Update  or 
Display  Other  Service  Requirements  screen. 

(4)  From  PJSM  data  base,  ITEM  table,  read  information 
associated  wi  r,h  value  query  was  executed  on.  Display  to  input 
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(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  with  the  tie  between  the  two  blocks  being  the 
DODIC  of  the  item.  The  information  in  block  2  is  retrieved  from  the 
REQTS_0THER  table. 

(6)  Updating  and  inserting  new  information  about  an 
item  can  only  be  accomplished  in  block  2  of  the  Update  or  Display 
Other  Service  Requirements  screen.  When  updating  an  item,  the  user 
will  insert  the  new  requirement  into  the  new  quantity  field  for  the 
corresponding  service  and  year.  The  screen  will  compute  the  differ¬ 
ence  between  the  original  quantity  and  the  new  quantity  and  insert 
that  difference  into  the  Change  field.  If  there  is  no  revised 
quantity,  the  new  quantity  field  will  remain  blank.  Users  can 
insert  new  requirements  by  inputting  the  year,  service,  and  new 
value.  The  user  cannot  delete  information  that  is  being  retrieved 
from  the  REQTS^OTHER  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory: 

(a)  Service  Code  (SERVICE). 

(b)  FY. 

< c )  Quantity  (CHANGE). 

e.  Output  -  Filled  screen  (see  figure  5.21.1-1). 

f.  Security  -  The  Update  or  Display  Other  Service  Require¬ 
ments  screen  displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  system 
will  have  access  only  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2)  REQTS_OTHER  -  contains  all  of  the  service  require¬ 
ments  for  each  item.  This  table  is  constructed  with  a  column  where 
new  requirements  are  stored  until  they  can  be  verified.  This 
ensures  that  baseline  data  will  not  be  deleted  accidently. 
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Other  Service  Requirements  Input  Screen 


FSC:  1305  DODIC:  A540  SSI:  E06903  iSK:  1305- 


ISM:  00900 


lowenclature:  CTG  CAL  .50  LKD  4API  IB/1  TR  Ml 7 


Service 

FY 

Unit  Price 

Quantity 

AF  Air  Force 

89 

1.2331 

1499453 

AF  Air  Force 

90 

1.3104 

666000 

AF  Air  Force 

91 

1.344 

666000 

AF  Air  Force 

92 

1.3763 

666000 

AF  Air  Force 

93 

1.3763 

866000 

CG  Coast  Guard 

88 

1.1908 

149200 

CG  Coast  Guard 

89 

1.2331 

149200 

CG  Coast  Guard 

90 

1.3104 

149200 

CG  Coast  Guard 

91 

1.344 

149200 

CG  Coast  Guard 

92 

1.3763 

149200 

CG  Coast  Guard 

93 

1.3763 

149200 

NC  Marine  Corps 

88 

1 . 1908 

970814 

Mew  Quantity 


Figure  5.21. 1 - i 


Example  of  Update  or  Display  Other  Service 
Requirements  Input  Screen  Filled  with  Information 
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5.21.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 


b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 


BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 


block  in  ascending  order  by  year. 

5.21.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.21.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.21.5  Listings .  Program  listing  is  K rated  in  <SYSSA>SAXPGM>f IMP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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PROGRAM  UTISIOI  !1.  DATE 

For  uae  of  this  ton,  see  TB  18-111;  the  proponent  ajjtncy  is  DCSOPS. _ i  30  lov  87 


2. 

PROGRAM  ID 

13. 

PROGRAM  1AME 

5.21 

JSM  13. IIP 

4. 

REV  10. /DATE 

15. 

DESCRIPTIOI  OF  REVISION 

DA  POBM  4752-1,  API  63  REPLACES  DA  FROM  5752,  IOV  78,  WHICH  IS  OBSOLETE. 


r, 
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5.22  Program.  DODIC/Project  Cross-Reference  Input  Screen 
( JSM_ 1 4 . INF) 

5.22.1  Program  Description.  The  DODIC/Project  Cross-Reference 
screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is 
used  to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE 
IAP  is  utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  3,  Review  or  Update 
Input  Data,  then  option  1,  Screens  for  Review  or  Update,  and  finally 
as  option  14. 

a.  Identification  -  The  source  code  for  the  DODIC/Project 
Cross-Reference  screen  is  identified  by  a  file  labeled  JSM_14.INF. 

After  being  compiled  through  ORACLE  IAG  a  run  file  is  created  named 
JSM_ 14 . FRM.  both  located  in  SAXPGM>$INP. 

b.  Functions  -  The  input  screen,  DODIC/Project  Cross- 
Reference,  retrieves  project  and  related  information  from  the  PJSM 
data  base  tables  titled  PR0DT_FY.  ITEM,  and  PLANT.  The  purpose  of 
this  screen  is  for  reviewing  project  data.  The  information  that 
appears  on  this  screen  cannot  be  deleted  through  this  screen. 

c.  Input  - 

il)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

( 2)  From  data  base : 

(a)  From  PR0DT.FY  table: 

in  DODIC  ---  CHARACTER  (4)  . 

(2)  Project  Code  (PROJECT)  ---  CHARACTER  (8). 

lb)  From  ITEM  table:  Nomenclature  -  CHARACTER  (48). 

(c)  From  PLANT  table:  Plant  Name  (PLANT)  - 

CHARACTER  (15). 

d.  Processing  - 

(1)  The  DODIC/Project  Cross-Reference  screen  incorpo¬ 
rates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the 
PRODT  FY  table,  this  screen  uses  a  default  WHERE  and  ORDER  BY 
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clause,  which  is  by  DODIC.  If  a  query  is  executed  with  no  given 
information,  the  order  in  which  items  will  be  returned  to  the  screen 
is  by  DODIC. 


(b)  The  user  is  unable  to  delete  any  project 
information  through  this  screen. 

(2)  Read  terminal  type  to  set  function  keys  appropriately 
on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  determine 
if  user  has  access  to  the  tables  being  used  in  the  DODIC/Project 
Cross-Reference  screen. 

(4)  From  PJSM  data  base,  PR0DT_FY  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  From  PJSM  data  base,  ITEM  table,  read  the  nomenclature 
that  is  related  to  the  DODIC  which  was  returned  from  the  PR0DT_FY 
table.  Display  to  input  screen.  From  PJSM  data  base,  PLANT  table, 
read  the  plant  name  that  is  related  to  the  plant  code  which  was 
returned  from  the  PRODT_FY  table.  Display  to  input  screen. 

e.  Output  -  Filled  screen  (see  figure  5.22.1-1). 

f.  Security  -  The  DCDIC/Proj ect  Cross-Reference  screen 
displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  System  will 
only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following  tables 
in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(7’  PRQDT_FY  -  contains  item  data  that  are  based  on 
various  projects.  This  table  contains  the  specific  data  for  an  item 
based  on  a  project. 

(3)  PLANT  -  contains  general  information  regarding  the 
production  facilities  that  are  represented  in  the  PJSM. 
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DODIC/Project  Cross-Reference 


DODIC 

loaenclature 

Project  » 

Plant 

1064 

CTG  5.56m  LX  4B1LL  MB55/1  TRCR  M856  MLB  H27 

LIKE  CITY 

1064 

CTO  5.56IN  LX  4B1LL  Ji36b/i  rRCR  M856  Cu  £7 

LIKE  CITY 

B519 

CTG  40W  PBAC  M781 

MILU 

8519 

CTO  40m  PBAC  £81 

MIL1I 

C699 

CTG  4.2  II  BE  M329A  1/0  FUZE 

LOUIS I 111 

C699 

CTG  4.2  11  BE  M329A  1/0  FUZE 

L0UISIU1 

C868 

CTG  8  IK  HE  IMPBOVED  0X1621  W/MOLTI  OPT  FUZE  £3 

C0MERCI1L 

C868 

CTG  8im  HE  IMPROVED  UXMB21  M/MDLTI  OPT  F0ZE  £3 

COIMERCIIL 

C870 

CTG  81IM  SK  RP  SCREEIIIG  0619 

PIIE  BLUFF 

C995 

LT  £  MOLTIPORPOSE  SYSTEM  (IT-4) 

COIMERCIIL 

D501 

PROJ  155m  HE  101X  M692  «/0  FUZE 

5902471 

LOUISIANA 

0502 

PROJ  155m  HE  AD1M  £31  I/O  FUZE 

5902471 

LOUISIANA 

D510 

FII1L  ASSY  OF  MHO  C0PPERHE10  £12 

COIMERCIIL 

0583 

PROJ  155m  HE  ICM  M48311  M/0  FUZE 

XYZ 

MI  LAI 

0563 

PROJ  155m  HE  ICM  M48311  W/O  FUZE 

mi 

KAISAS 

D563 

PROJ  155m  HE  ICM  M48311  W/0  FUZE 

KANSAS 

Figure  5.22.1-1.  Example  of  DODIC/Project  Cross  Reference  Input 
Screen  Filled  with  Information 
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5.22.2  Conventions. 


a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the  same 
values  were  input  in  upper  and  lower  case,  ORACLE  would  treat  them 
separately.  The  input  screens  are  designed  to  insert  capital  let¬ 
ters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.22.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.22.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.22.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>«INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.23  Program.  RAMP  Item  Input  Screen  IJSM_15.INP) 


5.23.1  Program  Description.  The  RAMP  Item  screen  is  written  using 
ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to  create  the  form 
necessary  to  produce  a  screen.  The  ORACLE  IAF  is  utilized  to  con¬ 
vert  the  coding  into  a  screen.  This  screen  is  located  on  the  PJSM 
Master  Menu  under  option  3,  Review  or  Update  Input  Data,  then  option 
1,  Screens  for  Review  or  Update,  and  finally  as  option  15. 


a.  Identification  -  The  source  code  for  the  RAMP  Item 
screen  is  identified  by  a  file  labeled  JSM_15.INP.  After  being 
compiled  through  ORACLE  IAG,  a  run  file  is  created  named  JSM_15.FRM, 
both  located  in  SAXPGM' $ INP . 


b.  Functions  -  The  input  screen.  RAMP  Item,  retrieves  item 
information  from  two  PJSM  data  base  tables  titled  ITEM  and  RAMP_ITEM 
The  purpose  of  this  screen  is  to  review,  input,  or  update  general 
production  data  for  the  RAMP'  years  for  each  item.  The  general  item 
information  that  appears  at  the  top  of  this  screen  cannot  be 
updated,  inserted,  or  deleted  through  this  screen.  These  functions 
have  to  be  performed  through  the  I  tern  Descriptors  screen  or  a 
special  data  base  procedure  that  is  found  on  the  JSM  Master  Menu. 


c.  Input  - 


ID  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 


(2)  From  data  base: 


(a)  From  ITEM  table: 


(I)  FSC  ---  CHARACTER  (4) . 


(2)  DODIC  ---  CHARACTER  (4). 


(3)  SSN  ---  CHARACTER  (b) . 


(4)  NSN  -  CHARACTER  ( 16) . 


(5)  Nomenclature  -  CHARACTER  (48) 


(b)  From  RAMP  ITEM  table: 


(1)  FY  -  INTEGER  (2) . 


INTEGER  ( 2) . 


(2)  Beginning  Calendar  Month  (BEG_M0) 
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INTEGER  (2) . 


(3)  Beginning  Calendar  Year  (BEG_CY) 


INTEGER  (2) 


(4)  Ending  Calendar  Month  (END_MO) 


INTEGER  (2) 


(5)  Ending  Calendar  Year  (END_CY)  ---  INTEGER  (2) . 

(6)  Number  of  Months  in  FDP  (NO  MOS)  - 


INTEGER  (10) 


(7)  Beginning  Assets  (BEG_ASSETS )  ---  INTEGER  U0). 

(8!  Army  Production  (.PRODARMY)  - INTEGER  (10). 

(9)  Total  Army  Production  (PROD_TOT)  - 


(10)  Test.  Training,  and  Other  Losses 
(LOSSES)  ---  INTEGER  (10). 


INTEGER  (10) 


INTEGER  (10) 


(11)  Other  Customer  Deliveries  (0C  DEL)  — 


(12)  Ending  Assets  (END^ASSETS )  ---  INTEGER  (10). 

(13)  Army  Buy  Quantity  t  ARMY  B,,Y_QTY )  --- 


(U)  Army  Unit  Price  (UNIT_PRICE)  ---  NUMBER  (F12.4) 


(15)  Dollar  Value  of  Funded  Army  Quantity 
(DV_ARMY)  ---  INTEGER  (10). 

d.  Processing  - 


(1)  The  RAMP  Item  screen  incorporates  a  few  unique 


rules : 


(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  D0DIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  ser.^s  oi 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information. 
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(bi  Tne  second  through  fourth  blocks,  which  relate 
to  RAMPITLM  table,  also  use  default  WHERE  and  ORDER  BY  clauses 
which  are  by  FY.  The  data  which  relate  to  the  DODIC  in  block  1  will 
be  displayed  in  order  by  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  RAMP  Item 
screen , 


(4)  From  PJSM  data  base.  ITEM  table,  read  information 
associated  with  value  the  query  was  executed  on.  Display  to  input 
screen . 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  through  4,  with  the  tie  between  the  biocks  being 
the  DCDIC  of  the  item.  The  information  in  block  2  thorugh  4  is 
retrieved  from  the  RAMP_ITEM  table. 

(6)  Updating  and  inserting  new  information  about  an 
item  can  only  be  accomplished  in  block  2  through  4.  When  a  user 
updates  or  inserts  information  in  these  blocks,  the  data  are 
directly  placed  into  the  RAMP^ITEM  table.  The  user  cannot  delete 
information  that  is  being  retrieved  from  the  PAMP_ ITEM  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory: 

la)  Beginning  Calendar  Month  (BEG_M0) . 

(b)  Beginning  Calendar  Year  (BEG_CY; . 

(c)  Ending  Calendar  Month  (ENB_M0) . 

( d )  Ending  Calendar  Year  ( END_CY ) . 

le)  Number  of  Months  in  FDP  (N0_M0S) . 

lf)  Beginning  Assets  (BEG_ASSETS)  -  (Only  in  the 

first  year ) . 

lg)  Army  Production  (PROD_ARMY) . 

(h)  Total  Production  (PR0D_T0T). 

(i)  Test,  Training,  and  Other  Losses  (LOSSES). 


b 
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(j)  Other  Customer  Deliveries  (0C_DEL) . 

e.  Output  -  Filled  screen  (see  figure  5.23.1-1). 

f.  Security  -  The  SAMP  Item  screen  displays  information 
which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2)  RAMP_ITEM  -  contains  general  summary  data  by  item 
for  the  BAMF  years.  This  table  and  the  RAMP_PR0D  table  contain  all 
of  the  item  information  for  the  RAMP  years. 

5.23.2  Conventions. 


a.  The  data  stored  in  ORACLE  is  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  tc  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.23.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.23.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was .  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 

5.23.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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Reap  Year  Prograa  Status  -  I  tea  Data 

FSC;  1305  DODIC:  4059  SSI:  £04601  BSS:  1305-01-155-5462  DOME)):  CTG  5.56*  BALL 


FDP: 

FY86  A  PBI0S 

FY87 

FY  88 

Beginning  Period  (MO/CY) 

10/86 

10/87 

10/88 

End  (NO/CY/t  of  Months) 

7/87/10 

7/88/12 

7/89/12 

Beginning  Assets 

77381000 

130462000 

119175000 

Ar^  Production 

85343000 

36113000 

36490000 

Total  Production 

109739000 

129723000 

139665000 

Test/Trng/Other  Losses 

32262000 

47400000 

64802000 

Other  Custoaer  Deliveries 

24396000 

93610000 

103175000 

End  of  Period  Assets 

130462000 

119175000 

70863000 

ABMY  BOY  StMIABY: 

FY86 

FY87 

FY  88 

Any  Quantity 

18845000 

Any  Onit  Price 

.1751 

Total  Dollars 

3300000 

Figure  5.23.1-1.  Example  of  RAMP  Item  Input  Screen  Filled  with 
Information 
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For  uoo  of  thig  (on,  gee  TB  16-111;  the  proponent  money  it  DCSOPS. 


12.  PROGRAM  ID 

I  5.23 _ 

14.  BET  10 ./DATE 


3.  PROGRAM  IA£ 
JSM  15.11? 

5. 


DESCBIPTIOI  OF  RETISIOI 


11.  DATE 
1  30  Fov  87 


DA  rOU  4782-1,  API  83  REPLACES  DA  FROM  5752,  10V  78,  IBICB  IS  OBSOLETE. 
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5.24  Program.  RAMP  Production  Input  Screen  USM_16.INP) 

5.24.1  Program  Description.  The  RAMP  Production  screen  is  written 
using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to  create 
the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is  utilized 
to  convert  the  coding  into  a  screen.  This  screen  is  located  on  the 
PJSM  Master  Menu  under  option  3,  Review  or  Update  Input  Data,  then 
option  1,  Screens  for  Review  or  Update,  and  finally  as  option  16. 

a.  Identification  -  The  source  code  for  the  RAMP  Production 
screen  is  identified  by  a  file  labeled  JSM_16.INF.  After  being 
compiled  through  ORACLE  IAG,  a  run  file  is  created  named  JSM  16.FRM, 
both  located  in  SAXPGM)$INF. 

b.  Functions  -  Tne  input  screen,  RAMP  Production,  retrieves 
item  information  from  two  PJSM  data  base  tables  titled  ITEM  and 
RAMP_FR0D.  The  purpose  of  this  screen  is  to  review,  input,  or 
update  general  production  data  for  the  RAMP  years  for  each  item. 

The  general  item  information  that  appears  at  the  top  of  this  screen 
cannot  be  updated,  inserted,  or  deleted  through  this  screen.  These 
functions  have  to  be  performed  either  through  the  Item  Descriptors 
screen  or  a  special  data  base  procedure  that  is  found  on  the  JSM 
Master  Menu. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 


F  rom 

data 

base  : 

(a) 

F  rom 

ITEM  table: 

(  n 

FSC  ---  CHARACTER  (4)  . 

(2) 

DODIC  ---  CHARACTER  (4). 

(3) 

SSN  ---  CHARACTER  (6). 

(4) 

NSN  ---  CHARACTER  ( 16!  . 

(5) 

Nomenclature  -  CHARACTER 

(48)  . 

(b) 

From 

RAMI _PR0D  table: 

U) 

FY  ---  INTEGER  (2!  . 

(21 

Production  Plant  (FLANT)  -- 

-  CHARACTER 

5-  '.57 
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(3)  Total  Production  CPROD_TOT)  - INTEGER  (10). 

(4)  Dollar  Value  of  Production  (DV_T0TAL)  - 

INTEGER  i 10 i . 

(5)  Work-years  for  Totai  Production 
( WRKYRS_T0T i  ---  NUMBER  (F7.2);  e.g.,  XXXXXXX.XX. 

(6)  Totai  Undelivered  RAMP  Quantity 
(UNDEL_T0T)  ---  INTEGER  (10). 

1 7 )  Army  Undelivered  RAMP  Quantity 
( TJNDEL_ AR)  ---  INTEGER  (10). 

(8'  Production  Year  Quantity  i PR0D_ YR_ QTYj  - 

INTEGER  (10). 

d.  Processing  - 

(II  The  RAMP  Production  screen  incorporates  a  few 
unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  D0DIC  then  FSC .  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  D0DIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
D0DIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information.  These  rules  include  the  use  of  a 
predelete  and  preselect  statement,  in  addition  to  answering  nc  to 
the  update  field  prompt. 

(b)  The  second  through  fourth  blocks,  which  relate 
to  RAMP_ITEM  table,  also  use  default  WHERE  and  ORDER  BY  clauses 

which  are  by  plant.  The  data  which  relate  to  the  1  .  I C  in  block  1  will 
be  displayed  in  order  by  plant. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

<3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  ;r.  the  RAMI'  Produc¬ 
tion  screen. 

1 4)  From  P-JSM  data  base,  ITEM  table,  read  information 
associated  with  value  the  query  was  executed  on.  Display  to  input 
screen . 
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(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  through  4,  with  the  tie  between  the  blocks  bem 
the  DODIC  of  the  item.  The  information  in  block  2  thorugh  4  is 
retrieved  from  the  RAMP_PR0D  table. 

(6i  Updating  and  inserting  new  information  about  an 
item  can  only  be  accomplished  in  block  2  through  4.  When  a  user 
updates  or  inserts  information  m  these  blocks,  the  data  are 
directly  placed  into  the  RAMP_PR0B  table.  The  user  cannot  delete 
information  that  is  being  retrieved  from  the  RAMP_PR0D  table. 

When  inserting  a  new  record,  the  following  fields  are  mandatory: 

(a)  Production  Plant  (PLANT) . 

(b)  Total  Undelivered  RAMP  Quantity  (UNDEL_T0T) . 

(c)  Army  Undelivered  RAMP  Quantity  (UNDEL_AR) . 

e.  Output  -  Filled  screen  (see  figure  5.24.1-1). 

f.  Security  -  The  RAMP  Production  screen  displays  informa¬ 
tion  which  is  unclassified. 

g.  Interlaces  -  All  functional  users  of  the  PJSM  system 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  input  screens. 

(2)  RAMP_PR0D  -  contains  general  summary  data  by  item 
and  plant  for  the  RAMP  years.  This  table  and  the  RAMP_ITEM  table 
contain  all  of  the  item  information  for  the  RAMP  years. 

5.24.2  Conventions. 

a.  The  data  stored  in  ORACLE  is  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
ietters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  Thes 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
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Baap  Tear  Projran  Status  -  Production  Data 


FSC:  1305  DODIC:  A059  SSI:  E04801  HSU:  1305-01-155-5462  I0HEI:  CTG  5.58MM  BALL 


Total  Production 
Dollar  Value  of  Prod. 
MRKYRS  to  produce  Qty . 


100472400 

3339705 

29.75 


144391052 

8081997 

42.75 


Total  BAMP  Balance 
Aray  RAMP  Balance 


PR0DUCTI0M  TEAR  SUMfABT: 


Quantity 


Figure  5.24.1-1.  Example  of  RAMP  Production  Input  Screen  Filled 
with  Information 
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to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.24.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.24.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.24.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM>*INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.25  Program.  JSM  Simulation  Guidelines  Input  Screen  (GUIB_1.INP) 

5.25.1  Program  Description.  The  JSM  Simulation  Guidelines  screen 
is  written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used 
to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is 
utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  1,  Set  up  or  Modify 
Study  Parameters,  and  then  option  1. 

a.  Identification  -  The  source  code  for  the  JSM  Simulation 
Guidelines  screen  is  identified  by  a  file  labeled  GUID_1.INP.  After 
being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
GUID_ 1 , FRM,  both  located  in  SAXPGM)$INP. 

b.  Functions  -  The  input  screen,  JSM  Simulation  Guidelines, 
retrieves  model  guidance  information  from  two  PJSM  data  base  tables 
titled,  REVTAB  and  GOALS.  The  purpose  of  this  screen  is  to  review, 
input,  or  update  the  guidance  to  be  used  in  PJSM  mode  runs. 

c.  Input  - 

(l)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

i 2 )  From  data  base : 

(a)  From  REVTAB  table: 

(1_)  RCN  ---  INTEGER  (2). 

(2)  Status  (STATUS)  ---  CHARACTER  (1). 

(3)  Date  (CREATED)  ---  DATE  114). 

(4)  Analyst  (AUSER)  ---  CHARACTER  (12). 

(5)  Title  (REMARKS)  ---  CHARACTER  (40). 

(6!  Beginning  FY  (BFY)  ---  INTEGER  (2). 

(7)  Number  of  FYs  (NFY)  ---  INTEGER  (2) . 

(8)  Level  of  Training  (LVTRNG)  ---  INTEGER  (1). 

(9)  Depot  Level  (DEPOTR)  ---  INTEGER  ll). 


(10)  Use  Initial  Assets  (ASSETS) 


CHARACTER  ( 
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CHARACTER  (11. 

(1.1) 

Other  Service  Use 

Assets  (SHARING) 

(b)  From 

GOALS  table: 

m 

FY  ---  INTEGER  (2) . 

(2) 

Buildup  (BUILDUP)  - 

--  INTEGER  (3). 

(3) 

Draw  Down  (DRAWDN) 

---  INTEGER  13). 

INTEGER 

(3)  . 

(4) 

Training  Level  Percentage  (PCT_TRNG) 

NUMBER 

(F7. 1)  . 

(5) 

Activity  I  Dollars 

(ACTIVITY,!)  --- 

NUMBER 

(F7 . 1)  . 

(6) 

Activity  II  Dollars 

(ACTIVITY,!!)  -- 

d.  Processing  - 

(1)  The  JSM  Simulation  Guidelines  screen  incorporates  a 
few  unique  rules : 

(a)  In  the  first  block,  which  pertains  to  the 
REVTAB  table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause 
which  is  by  RCN.  If  a  query  is  executed  with  no  given  information. 
RCN's  or  studies,  will  be  returned  to  the  screen  in  ascending  order. 

(b)  The  second  block,  which  relates  to  the  GOALS 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by  FY . 
The  data  which  relate  to  the  RCN  in  block  1  will  be  displayed  in 
order  of  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  table  being  used  in  the  JSM  Simula¬ 
tion  Guidelines  screen. 

(4)  From  PJSM  data  base,  REVTAB  table,  read  .'.formation 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


5-164 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  with  the  tie  between  the  two  blocks  being  the 
RCN  of  the  study.  The  information  in  block  2  is  retrieved  from  the 
GOALS  table. 

(6)  Updating  and  inserting  new  information  about  an  RCN 
can  be  accomplished  in  block  1  and  2. 

(a)  When  a  user  updates  or  inserts  information  in 
block  1,  the  data  are  directly  placed  into  REVTAB  table. 

(b)  When  a  user  updates  or  inserts  new  information 
in  block  2,  the  data  are  directly  placed  into  the  GOALS  table. 

(c)  When  inserting  a  new  record,  the  following 
fields  are  mandatory: 

U)  RCN. 

(2)  Status  (STATUS). 

(31  Date  (CREATED) . 

(4)  Analyst  (AUSER) . 

(55  Title  (REMARKS). 

(6)  Beginning  FY  (BFY) . 

(7)  Number  of  FYs  (NFY) . 

(8)  Level  of  Training  (LVTRNG) . 

(9)  Depot  Level  (DEPOTR). 

(10)  Use  Initial  Assets  (ASSETS). 

(Ill  Other  Service  Use  Assets  (SHARING). 

(12)  FY. 

(K5)  Buildup  (BUILDUP). 

(1_4)  Draw  Down  (DRAWDN)  . 

(15)  Training  Levei  Percentage  (PCT_TRNG). 

(1_6)  Activity  I  Dollars  (ACTIVITY,! )  . 
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(17)  Activity  II  Dollars  (ACTIVITY_II) . 

e.  Output  -  Filled  screen  (see  figure  5.25.1-1), 

f.  Security  -  The  JSM  Simulation  Guidelines  screen  displays 
information  which  is  unclassified. 

g.  Interfaces  -  The  functional  users  of  the  PJSM  System 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
table  in  the  PJSM  data  base: 

(1)  REVTAB  -  contains  important  information  regarding 
rules  the  PJSM  will  use  for  a  model  run. 

(2)  GOALS  -  contains  rules  that  the  PJSM  accesses  for  a 
model  run.  One  of  the  important  rules  contained  here  is  the  dollar 
amount  the  model  will  use  in  figuring  how  much  production  to  allow. 

5.25.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the  j. 

same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat  * 

them  separately.  The  input  screens  are  designed  to  insert  capital 

letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  In  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.25.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.25.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was.  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 

5.25.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP. 

A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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PSOGIAM  1IYI8I0I 

For  u«t  of  this  form,  m  TB  18-111:  the  proponent  *<«ncy 


is  DCSOPS. 


!1.  DATE 
I  30  lov  87 


PROGRAM  ID 

5.25 _ 

SET  10. /DATE 


PBOGSAM  SAME 

QUID  1.IIP 


DESCEIPTIOI  OF  SETISIOK 


DA  FOB  4792-1,  API  83 


REPLACES  DA  FBOM  5752,  EOT  78,  MICE  IS  OBSOLETE. 
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5.26  Program.  RDAISA  (Army  Requirements)  Input  Program  (PKG.FOR) 

5.26.1  Program  Description.  Program  to  read  an  AAO  tape  file, 
compute  Army  requirements  by  package  level,  and  load  or  update  the 
REQTS_ARMY  table  (PKG).  The  PKG  program  is  written  in  structured 
FORTRAN  77  with  embedded  SQL  statements.  The  source  code  is  in  a 
file  named  FKG.FOR.  This  file  must  be  precompiled  using  the  ORACLE 
FORTRAN  host  language  precompiler  which  replaces  the  embedded  SQL 
statements  with  calls  to  library  routines.  The  precompiler  gener¬ 
ates  an  intermediate  file  --  PKG.F77  --  which  is  compiled  with  the 
PRIME  F77  compiler.  The  PRIME  BIND  linker  utility  is  used  to  pro¬ 
duce  an  executable  run  file  --  PKG. RUN. 

a.  Function  -  The  program  reads  an  RDAISA  AAO  tape  file, 
builds  Army  requirements  by  package  level,  and  builds  the  FJSM 
ORACLE  REQTS_ARMY  table. 

b.  Input  - 

tl)  From  the  command  iine: 

(a)  ORACLE  user  name. 

(b)  ORACLE  password. 

(2)  From  terminal  or  command  stream: 

'a)  Beginning  FY. 
lb)  Number  of  FYs . 

<c)  New  AAO  tape  file  (yes /no)  - 
U>  If  Yes: 

(a)  Pathname  of  new  AAO  tape  file. 

(b)  Name  of  an  exception  file. 

(2)  If  No: 

(a)  Pathname  of  existing  exception  file. 

(b)  Pathname  of  new  exception  file. 

13)  From  the  ICT  table:  A  list  of  secondary  items. 

(4)  From  the  ITEM  table:  DODIC. 
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(5)  From  the  AAO  tape  file: 

(a)  SSN . 

(b)  FY. 

(c)  Nomenclature. 

(d)  Unit  of  measure. 

<e)  Test  losses  for  each  FY. 

(f)  Level  1  and  Level  2  ammunition  losses  for  each 
FY. 

(g)  AAIQ  for  NATO,  Korea,  RDF,  other,  and  Pacific 

Reserve . 

(h)  Ammunition  resupply  quantities  by  theater  (see 

5.26. lb  (5)  (g)  )  . 

<i)  Plant  operations  projects. 

(j)  Depot  Level  1  requirement. 

(k)  Mobilization  training  A  requirements. 

(i)  WRSA  0-30  and  31  -  balance. 

(m)  Mobilization  training  B  reaui rements . 
c.  Processing  - 

(1)  The  program  checks  to  see  if  a  valid  ORACLE  user 
name  and  password  were  supplied  on  the  command  line. 

(2)  The  program  reads  in  the  values  for  the  beginning 
FY  and  the  number  of  FYs  (usually  five). 

<3)  The  names  of  an  input  end  exception  file  are  read 
in  and  opened. 

(4)  If  a  new  AAO  file  is  being  read,  the  REQTS_ARMY 
table  is  updated  by  setting  the  change  column  equal  to  minus 
quantity  and  quantity  to  zero. 
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(5)  A  list  of  secondary  item  DODICs  is  retrieved  from 
the  ICT.  This  list  is  sorted  in  ascending  sequence  so  that  an 
efficient  binary  search  routine  can  be  subsequently  used  to  screen 
out  secondary  items  from  the  AAO  file. 


Annex  D  for 
checks  are 

16)  The  data  are  read  in  five  records  at  a  time.  See 
file  layouts.  For  each  group  of  records  the  following 
performed: 

la) 

End  of  tile. 

(b) 

Read  errors  (data/format  mismatch) . 

(c) 

FY  out  of  range. 

(d) 

SSN  is  not  in  the  ITEM  table. 

(e) 

The  item  is  a  secondary  item. 

i 7>  The  group  of  records  is  shipped  for  any  condition 
5 . 26 . ’ c (6) (b)  through  5 . 26 . lc  (6)  (e) . 


(8)  For  each  group  of  records  that  pass  the  above 
tests,  the  following  steps  are  performed: 

(a)  Package  levels  2  through  17  are  computed  as 

foil ows : 

A 1 1 Q (  19)  =  0 
RESUPPLY30 ( 6 )  =  0 
RESUFFLY45 (5)  =  0 
RESUPPLY60 (5)  =  0 
BESUPPLY90  1 5 )  -  0 
MOBTNGA  (  4  )  =  0 
MOBTNGB ( 3 )  -  C 

DO  6  1=1,18 

6  AIIQl  19)  =  AIIQf  19)  +  AIIQ(I) 


DO  7  1=1.5 
7  RESUFPLY30 ( 6 ) 


=  RESUPPLY30 ( 6 )  +  RESUPPLY30 ( I ) 


DO  8  I  =  .  ,  4 
RESUPPLY45 (5) 
RESUPPLY60 ( 5 ) 
8  RESUPFLY90 ( 5 ) 


RESUPPLY45 ( 5 ) 
RESUPPLY60 (5) 
RESUPPLY90 (5) 


RESUPPL.Y45  ( I ) 
RESUPPLY60 (T i 
RESUPPLY90 ( 1 ) 
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DO  9  I =  1  , 3 

9  M0BTN3AU)  =  MOBTNGA  ( 4 )  ♦  MOBTNGA  ( I ) 

DO  10  1=1,2 

10  MOBTNGB (3)  =  MOBTNGB (3)  ♦  M0BTNG3 ( I ) 

YEAR  =  FY*  =  BFY*  +  1 

PKG  2  =  TEST (YEAR) 

PKG  3  =  A 1 1 Q ( 1 9 ) 

PKG  4  =  OPPROJ 
PKG  5  =  LIAL(YEAR) 

If  DEP 1  .GT.  0 

PKG  6  =  0.55  «  PKG  4 
Else 

PKG  6=0 
End  i  f 

PKG  7  =  RESUPPLY30 (6) 

PKG  8  =  RESUPPLY45 ( 5 ) 

PKG  9  =  RESUPPLY60 <  5  > 

PKG  10  =  L2AL ( YEAR) 

If  DEP2  .GT.  0 

PKG  11  =  0.55  *  PKG  9 
Else 

PKG  11  =  0 
End  if 

PKG  12  =  MOBTNGA! 4) 

PKG  13  =  WRSA30 

PKG  14  =  RESUPPLY90 ( 5 ! 

PKG  15  =  WRSABAL 
PKG  16  =  MOBTNGB (3) 

PKG  17  =  RESUPPLYBAL 

(b)  If  there  is  a  recqrd  in  REQTS_ARMY  that 
matches  the  DODIC,  FY ,  and  package,  that  record  is  updated  as  fol¬ 
lows  : 

If  quantity  >  0,  change  =  requirement  -  quantity. 

Otherwise,  change  =  change  +  requirement. 

(c)  If  the  record  is  not  found  in  the  REQTS_ARMY 
table,  it  is  inserted  with  change  =  quantity. 
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5.26.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  ORACLE 
tables  usually  consist  of  the  corresponding  table  column  name  with  a 
'S'  character  added. 

5  20.3  Verification  Procedures.  The  program  can  be  verified  by 
•pot  checking  some  of  the  output  against  values  manually  retrieved 
‘r:n  the  data  base  using  the  ORACLE  UFI . 

‘  2t  ♦  Error  Conditions.  Error  messages  will  be  printed  in  the 
S»1  'CMP  file. 

.*  ‘  Listings .  The  program  listing  contains  comments  to  assist 
-  mas;  rig  program  changes.  This  program  listing  (PKG.LIS)  is 
:a*.ed  .r.  < SYSSA>SAXPGM>*PGM.  A  hardcopy  of  the  source  program  is 
•a. .afcie  in  AMSMC- IMS-HM. 
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PKXHAJI  EE7ISI0I 

11.  DATE  ; 

i  For  uj«  of  this 

fora,  see  TB  18-111;  the  proponent  aAency  is  DCSOPS. 

:  30  lov  87 

■2.  PE0GSA1  ID 

!3.  PBOGSAM  IAMB 

!  5.28 

!  PEG. FOE 

14.  SET  10. /DATE 

15.  DESCIIPTIOI  OF  BE7ISI0I 

I 


i 


I 


i  : 

i  i 

i  > 

DA  FOB  4782-1,  API  S3  REPLACES  DA  FBON  5752,  107  78,  WICH  IS  OBSOLETE. 
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5.27  Program.  ICAPP  Unit  Prices  (Including  Army’s)  and  Other 
Customer  Requirement  Input  Program  (ICAPP. FOR) 

5  27.1  Program  Description.  The  ICAPP  program  is  written  in 
structured  FORTRAN  77  with  embedded  SQL  statements.  The  source  code 
is  in  a  file  named  ICAPP. FOR.  This  file  must  be  precompiled  using 
the  ORACLE  FORTRAN  host  language  precompiler  which  replaces  the 
embedded  SQL  statements  with  calls  to  library  routines.  The  precom¬ 
piler  generates  an  intermediate  file  --  ICAPP. F77  --  which  is  com¬ 
piled  with  the  PRIME  F77  compiler.  The  PRIME  BIND  Linker  utility  is 
used  to  produce  an  executable  run  file  --  ICAPP. RUN. 

a.  Functions  -  The  program  extracts  requirements  and  unit 
price  data  from  an  ICAPP  tape  file  and  inserts  these  data  into  the 
PJSM  ORACLE  data  base. 

b.  Input  - 

(1)  From  the  command  line: 

(a)  ORACLE  username. 

(b)  ORACLE  password. 

(2)  From  terminal  or  command  stream: 

(a)  FY  of  POM:  e.g. .  89. 

(b)  Beginning  FY  location  in  ICAPP  file  (1-8). 

(c)  Number  of  FYs  (usually  5) . 

(d)  New  ICAPP  tape  file  (yes  or  no): 

(U  If  yes  - 

(a)  Pathname  of  new  ICAFP  file. 

(b)  Name  of  an  exception  file. 

(2)  If  no  - 

(a)  Name  of  an  existing  exeption  file. 

(b)  Name  of  a  new  exception  file. 

(e)  Update  Army  unit  prices  (yes  or  no) . 
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(3)  From  the  ICAPP  tape  file: 


(a)  DODIC. 


(b)  SSN . 


(c)  Service  Code. 


(d)  Required  quantities  by  FY. 


(e)  Unit  prices  for  Army  by  FY . 


Processing  - 


(1)  The  program  checks  to  see  if  a  valid  ORACLE  user 
name  and  password  were  supplied  on  the  command  line. 


(2)  A  list  of  DODICs  and  a  SSN/DODIC  cross  reference 
array  are  built  from  the  data  in  the  ITEM  table.  These  arrays  are 
sorted  in  ascending  sequence  to  facilitate  the  subsequent  use  of  a 
fast  binary  search  routine. 


(3)  The  terminal  or  command  stream  data  are  read  in  and 


checked . 


(4)  If  a  new  ICAPP  tape  file  is  being  processed,  the 
change  and  quantity  columns  in  the  REQTS_OTHER  table  are  zeroed  out. 


(5)  The  ICAPP  file  is  opened  and  read  one  line  at  a 
time.  For  each  line  the  following  checks  are  performed: 


(a)  End  of  file. 


(b)  Data/format  mismatch. 


(c)  The  DODIC  and  SSN  are  checked  against  the 
arrays  built  in  step  5.27.  lc<2).  If  both  SSN  and  DODIC  are  not 
found,  the  line  is  rejected. 


(6)  For  each  good  line  in  the  ICAPP  file  the  following 


is  performed: 


(a)  If  the  service  code  is  'AR'  for  Army,  an 
attempt  is  made  to  insert  a  new  row  containing  DODIC,  FY  and  >"■"  t 
price  into  the  ITEM_DATA  table.  If  the  insert  fails  because  the 
record  is  already  in  the  table,  the  unit  price  column  is  updated  if 
this  option  is  in  effect. 
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(b)  For  service  codes  for  other  customers,  an 
attempt  is  made  to  insert  a  new  row  into  the  REQTS_OTHER  table.  If 
the  insert  fails  because  of  duplicate  value  in  index,  the  quantity 
and  unit  price  columns  are  set  to  the  new  values. 

5.27.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a  S 
character  added. 

5.27.3  Verification  Procedures.  The  program  was  verified  by 
inspection  of  the  unit  prices  inserted  into  the  ITEM_DATA  and 
REQTS_OTHER  tables. 

5.27.4  Error  Conditions.  Error  messages  will  be  printed  in  th: 
ICAPP.C0M0  file  produced  at  each  execution  of  the  program. 

5.27.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  This  listing  (ICAPP.LIS)  is  located  in 
< S YSS A) SAXPGM) SPQM .  A  hardcopy  of  the  source  program  is  available 
in  AMSMC-XMS-HM. 
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nooiv  iitisioi  :i.  date 

For  tiie  of  this  fora,  set  TB  18-111;  the  proponent  aftency  it  DCSOPS.  !  30  Iov  87 

2.  PiOGBAM  ID 

5.27 

3.  PBOGBAM  IAME 

ICAPP.FOB 

4.  BEY  K./DATE 

5.  DESCBIPTIOS  OF  BEYISIOI 

di  rom  4753-1,  in  n  mum  da  fbom  5752,  iov  78,  ibicb  is  obsolete. 
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5.28  Program.  Alternate  Priority  Scheme  Generator  (APS. FOR) 

5.28.1  Program  Description.  The  Alternate  Priority  Scheme 
Generator  program  is  written  in  structured  FORTRAN  77.  The  source 
code  is  in  a  file  named  APS. FOR  which  is  input  to  the  ORACLE  precom¬ 
piler  that  creates  the  APS.F77  file.  This  file  in  turn  is  compiled 
with  the  F77  compiler  and  loaded  with  the  BIND  utility  to  produce 
the  APS. RUN  run  file.  The  following  paragraphs  describe  the  APS 
program: 

a.  Identification  -  Source  code  for  this  program  is  found 
in  the  APS. FOR  file.  Its  run  file  equivalent  is  APS. RUN.  APO  users 
have  access  to  this  program  only  through  the  JSM  Master  Menu. 

b.  Functions  -  The  APS  program  determines  an  alternate 
priority  for  each  item  in  the  ITEM. DATA  table  based  on  work-years 
calculated  from  the  1-8-5  production  rate,  1-8-5  staffing  rate,  and 
the  unit  price.  Alternate  priorities  will  start  at  1  for  the 
highest  non-zero  work-year  item  and  increment  by  1.  Zero  work-year 
items  are  ordered  by  unit  price  and  assigned  large  alternate 
priorities  based  on  this  ordering.  The  ITEM. DATA  table  is  updated 
with  the  calculated  alternate  priority. 

c.  Input  - 

(1)  Interactive.  ORACLE  identification  and  password. 

(2)  From  data  base  accessed  by  program. 

(a)  From  REVTAB:  Beginning  FY ,  number  of  years. 

(b)  From  ITEM. DATA:  Read  list  of  DODICs  and  their 
unit  prices,  order  this  select  by  FY  and  unit  price. 

(c)  From  PRODT:  ^or  each  item,  read  its  1-8-5 
production  and  staffing  rates. 

(d)  From  PRODT. FY:  If  no  data  exists  in  PRODT  for 
an  item,  read  1-8-5  production  and  staffing  rates. 

d.  Processing  Logic. 

(i)  User  Input.  Interactively  read  ORACLE  user  identi¬ 
fication  and  password. 


5- 179 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(2)  Program  Input. 

(a)  From  ITEM. DATA  table  read  list  of  DODICs  and 
their  unit  prices  ordered  by  FY  and  unit  price. 

(b)  From  REVTAB  table,  read  beginning  FY  and  num¬ 
ber  of  FYs. 

(c)  From  PRODT  table  or  PRODT.FY  table,  read  the 
associated  1-8-5  production  and  staffing  rates. 

(d)  Calculate  work-years  based  on  the  following 

equation: 

Work-years  =  1-8-5  Staffing  Rate  ?  (1-8-5  Prod  Rate  »  12  »  Unit  Price) 

(e)  Determine  the  position  of  this  item's  calcu¬ 
lated  work-years  with  respect  to  other  items;  this  procedure  develops 
a  pointer  array  with  the  value  of  the  alternate  priority  for  the 
item. 

(f)  Update  the  ITEM. DATA  table  with  the  determined 
alternate  priorities.  Lower  alternate  priorities  imply  larger  com¬ 
puted  work-years. 

e.  Output  -  Only  update  ALT.PRI  column  in  ITEM. DATA  table. 

f.  Security  -  No  unique  considerations. 

g.  Interfaces  -  This  program  requires  no  interface  with 
other  programs.  It  can  be  executed  at  will  but  may  result  in  a 
differing  ord«r  of  alternate  priorities  due  to  data  read  from  PRODT 
or  PRODT.FY. 

h.  Tables  -  See  Annex  B. 

5.28.2  Conventions.  The  program  has  been  written  with  the  conven¬ 
tion  that  all  local  variables  end  with  a  'S'  character  to  distinguish 
them  from  similarly  named  ORACLE  columns. 

5.28.3  Verification.  Verification  will  necessarily  be  done 
manually  using  ORACLE'S  User  Friendly  Interface  to  directly  access 
the  data  base. 

5.28.4  Error  Conditions.  Errors  encountered  will  be  documented  \r> 
the  COMO  file  produced  at  each  execution. 

5.28.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>SPGM. 

A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.29  Program.  Individual  Item  Data  Report  iIIDR.FOR). 

5.29.1  Program  Description.  The  Individual  Item  Data  Report  pro¬ 
gram  is  written  in  structured  FORTRAN  77.  The  source  code  can  be 
found  in  a  file  called  IIDR.FOR.  The  following  paragraphs  describe 
the  IIDR.FOR  program: 

a.  Identification  -  Source  code  for  the  program  is  located 
in  the  IIDR.FOR  file.  This  file  is  input  to  the  ORACLE  precompiler 
which  builds  an  IIDR.F77  file.  The  IIDR.F77  file  is  compiled  with 
the  F77  compiler  and  its  binary  counterpart  loaded  using  the  BIND 
utility.  The  executable  program  will  be  named  IIDR.RUN. 

b.  Functions  -  The  IIDR.FOR  program  produces  the  Item  Input 
Data  Report  which  is  a  detailed  report  of  input  information  for  each 
item.  Including  production  data,  RAMP  years  data,  and  requirements 
by  year  and  package  level. 

c.  Input  - 

(1)  Interactive.  User  inputs  ORACLE  identification  and 
password  and  enters  RCN. 

12)  Input  by  Program. 

(a)  From  REVTAB  table:  Read  beginning  FY  and 

number  of  FYs . 

(b)  From  PACKAGE  table:  Read  package  levels 
(PKGL)  and  package  names. 

tc)  From  ITEM  table:  Read  FSC ,  DODIC,  SSN,  SEQ , 
NSN,  ISN,  Family,  Use,  NMF ,  Nomenclature,  and  UOM  columns  for  use  in 
report . 

Id)  From  RAMP. ITEM  table:  For  each  DODIC  read 
from  Item,  read  m  the  assets  for  beginning  FY. 

(e)  From  PRODT  table:  Read  line  number,  1-8-5  and 
2-8-5  production  and  staffing  rates,  and  MPA  columns. 

If)  From  PLANT  table:  Read  plant  name. 

(g)  From  RAMP . PROD  table:  Read  Plant,  Lino 
UNDEL_AR ,  UNDEL_T0T ,  PR0D_ARMY ,  DV_ ARMY ,  WRKYRS.AR,  PR0D_T0T, 

DV  TOTAL ,  and  WRKYRS  TOT  columns. 
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(.  h )  From  ITEM. DATA  table:  Read  FY  ,  unit  price. 
PRI .  and  MIA  columns. 

ii)  From  REQTS.  OTHER  table:  Read  FYr,  service, 
unit  price,  and  quantity. 

I  j )  From  REQTS . ARMY  table:  Read  FY,  package 
level,  and  quantity. 

d.  Processing  - 

fli  User  enters  ORACLE  identification  and  password. 
User  also  enters  desired  RCN. 

i ■  Read  in  all  data  from  ITEM.  DATA  table.  Read 
RAMiP.ITEM  table  for  beginning  assets  for  beginning  FY  by  item. 


!3)  For  each  item  read  from  ITEM. DATA  table,  do  the 


foil  owing : 


(a)  Read  from  PRODT  table  1*8-5  and  2-8-5  produc¬ 
tion  and  staffing  rates  and  the  maximum  production  allowed  and  write 
to  output  for  each  plant  where  the  item  is  produced. 

(b)  Write  item  information  (SSN,  Family  code,  NSN, 
Beginning  asset,  DODAC ,  Use  code,  Nomenclature,  Unit  of  Measure,  New 
Materiel  Fielding)  to  output. 

(c)  Read  RAMP. PROD  table  for  production,  dollar 
value  and  undelivered  amounts  for  Army  and  total  for  the  3  years 
prior  to  the  beginning  FY.  Write  these  RAMP  year  data  to  the  output 
report.  If  there  are  no  data  for  a  certain  year,  then  write  such  on 
o  u  t  p  u  t . 

(d)  From  ITEM. DATA  table  read  the  unit  price, 
priority  and  maximum  inventory  allowed,  by  year  starting  with  the 
beginning  FY.  Write  these  data  to  the  output  report  by  year. 

(e)  From  REQTS. OTHER  table  read  the  service,  unit 
price  and  requirement,  by  year.  Write  the  service  name  and  unit 
price  by  year  to  the  output.  The  requirements  are  written  next  m  a 
separate  block  with  service  and  requirement  by  year. 

(f)  From  REQTS . ARMY  table  read  the  requirement  by 
FY  and  package  leve±.  Write  the  package  number,  package  name,  and 
Army  requirements  by  year  to  output  report. 
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end . 


( g )  Loop  through  procedure  for  next  item  until 


(h)  Close  report,  end  program. 

(4)  It  should  be  noted  that  the  output  is  formatted  but 
the  *001*001  character  at  the  top  signals  the  printer  for  format 
control.  No  option  on  the  SPOOL  command  is  necessary. 


e.  Output  -  Item  Input  Data  Report. 

f.  Interfaces  -  Users  will  only  have  access  to  the  execut¬ 
able  program  or  the  output  report  through  the  JSM  Master  Menu.  This 
program  requires  no  other  interface  with  any  program. 

g.  Tables  -  See  Annex  B. 

5.29.2  Conventions.  The  program  has  been  written  with  the  conven¬ 
tion  that  all  local  variables  end  with  a  character.  This  will 
help  distinguish  them  from  similarly  named  table  columns. 

5.29.3  Verification  Procedures.  Verification  must  done  as  using 
the  ORACLE  UFI  utility  to  access  the  data  base. 


5.29.4  Error  Conditions.  Errors  will  be  documented  in  the  COMO 
file  produced  at  each  execution  of  the  program. 

5.29.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM>*PQM. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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PIOQUM  RKTI810I 

For  ui«  of  tbia  fora,  ae«  TB  18-111;  tbe  proponent  a|«ncy  ia  DCSOPS. 


!1.  DATE 
!  30  lov  87 


2.  PBOGBAM  ID 

5.29 _ 

4.  EE?  10. /DATE 


3.  PBOGBAM  IANE 
I  IDE. FOE 

5, 


DESCBIPTIOI  OF  EEYISIOI 


91  rOW  4782-1,  API  83  REPLACES  DA  FBOM  5752,  107  78,  WHICH  IS  OBSOLETE. 
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5.30  Program.  Plant  Item  Data  Report  (PIDR.FOR) 


5.30.1  Program  Description.  The  Fiant  Item  Data  Report  is  written 
in  structured  FORTRAN  77.  The  source  code  is  located  in  a  file 
called  PIDR.FOR  which  is  input  to  the  ORACLE  precompiler  that 
creates  the  FIDR.F77.  The  PIDR.F77  is  input  to  the  F77  compiler  and 
then  loaded  using  the  BIND  utility  producing  the  executable  version 
PIDR.RUN.  The  following  paragraphs  describe  the  PIDR  program: 


a.  Identification  -  Source  code  for  this  program  is 
located  in  a  file  called  PIDR.FOR.  Its  executable  equivalent  is 
PIDR.RUN.  Functional  users  will  have  access  to  this  program  only 
through  the  JSM  Master  Menu. 


b.  Functions  -  The  PIDR.RUN  program  produces  the  Plant  Item 
Data  Report  which  is  a  detailed  list  of  production  data  for  all 
items  separated  by  plant.  This  information  includes  components  by 
i  tem. 


Input  - 


(1)  Interactive:  User  inputs  ORACLE  identification  and 
password.  Also  inputs  preferred  revision  control  number. 


(2)  By  program: 

(a)  From  REVTAB  table:  Read  beginning  FY  and 


number  of  FYs. 


f b )  From  PLANT  table:  Read  plant  name,  production 
overhead,  and  non-production  overhead  by  plant. 


nomenclature . 


OMA  by  plant , 


(c) 

From 

ITEM 

table : 

Read 

in  list  of 

DODICs 

and 

(d) 

From 

STAFF 

table : 

Read 

in  direct 

labor 

and 

(e) 

From 

PRODT 

tab  1  e  : 

Read 

the  line, 

1-8-5 

and 

2-8-5  production  and  staffing  rates,  line  availability,  and  maximum 
produced  quantity. 


(f)  From  ICT:  Read  procurement  factor. 

(g)  From  PROJECT:  Read  project  title. 


(h)  From  PRODT.FY  table:  Read  the  line,  FY, 
month,  and  1-8-5  and  2-8-5  production  and  staffing  rates. 
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d.  Processing  - 

(1)  User  enters  ORACLE  identification  and  password. 

(2)  User  enters  desired  revision  control  number. 
Program  reads  beginning  FY  and  number  of  fiscal  years  from  REVTAB . 

(3)  Program  reads  in  list  of  plants,  plant  names,  and 
their  production  and  non-production  overhead  factors  from  PLANT 
table . 

14)  Program  reads  in  list  of  items  from  ITEM  table. 

(. 5 )  Program  reads  from  PRODT  table  the  plants  at  which 
each  item  is  produced. 

16)  For  each  plant  read  from  PLANT  table,  do  the 


(a)  Read  STAFF  table  for  the  direct  labor  and  OMA 
by  FY  for  the  beginning  FY  through  the  ending  FY ,  where  the  ending 
FY  is  equal  to  the  beginning  FY  plus  the  number  of  FYs  minus  one. 

(b)  For  each  FY  calculate  the  total  production 
overhead,  non-production  overhead,  and  total  labor  according  to  the 
following  equations: 

Production  Overhead  =  Direct  labor  *  Production  Overhead  Factor  +  5 

Non-production  Overhead  =  (Direct  labor  +  OMA  +  Production  Overhead)  * 

Non-production  Overhead  Factor  +  5 

Total  labor  =  Direct  labor  ♦  OMA  +  Production  Overhead  + 

Non-production  Overhead 

Ic)  Write  the  plant  name  and  the  direct  labor, 

OMA,  production  overhead,  non-production  overhead,  and  total  labor 
by  FY. 

(d)  Open  a  cursor  to  retrieve  ail  items  and  item 
information  from  PRODT  table  for  a  plant. 

(1_)  For  each  item  read  from  PRODT  read  the 
nomenclature  and  beginning  asset  posture. 
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(2)  Writ#  SSN ,  FSC,  DODIC,  1-8-5  and  2-8-5 
production  and  staffing  rates,  line  number,  alternate  items,  maximum 
produced  quantity,  maximum  production  allowed,  beginning  assets,  and 
nomenclature  to  output  file. 

(3)  From  the  ICT  table,  read  the  list  of 
components  for  this  DODIC. 

(4)  For  each  component  read,  read  its  pro¬ 
curement  factor  and  nomenclature  from  ITEM  table. 

(5)  Write  component  information  to  output. 

(6)  Loop  to  new  end  item. 

(e)  Open  a  cursor  to  retrieve  all  project  informa¬ 
tion  from  the  PRODT.FY  and  PROJECT  tables.  Read  the  project  title, 
line  number,  effective  date  (month  and  year),  1-8-5  and  2-8-5  pro¬ 
duction  and  staffing  rates.  Write  project  information  to  output  and 
loop  to  new  project. 

(f)  After  all  project  data  read,  loop  through  to 

next  plant. 

(7)  After  all  plants  completed,  close  output  report  and 

end  program. 


e.  Output  -  Plant  Item  Data  Report. 

f.  Interfaces  -  This  program  requires  no  interfaces  with 
any  other  programs.  Users  will  have  access  to  this  program  through 
the  JSM  Master  Menu. 

g.  Tables  -  See  Annex  B. 

5.30.2  Conventions.  This  program  has  been  written  with  the  conven¬ 
tion  that  all  local  variables  end  with  a  character  to  distinguish 
them  from  similarly  named  ORACLE  columns. 

5.30.3  Verification  Procedures.  Verification  of  the  output  will 
necessarily  be  done  using  ORACLE'S  UFI  utility  to  directly  access 

the  data  base. 

5.30.4  Errors.  Errors  encountered  will  be  documented  in  the  COMO 
file  produced  at  each  execution. 

5.30.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM>9PQM. 

A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.31  Program.  Data  Extract  for  Ammunition  Executive  Management 
System  (AEMS.FOR) 

5.31.1  Program  Description.  The  AEMS  program  is  written  in 
structured  FORTRAN  77.  Source  code  for  the  program  is  in  the 
AEMS.FOR  file  which  is  input  to  the  ORACLE  precompiler  that  builds 
the  AEMS.F77  file.  This  file  is  compiled  with  the  F77  compiler  anc 
loaded  using  the  BIND  utility  to  produce  the  executable  program 
AEMS. RUN.  The  following  paragraphs  describe  the  AEMS  program: 

a.  Identification  -  Source  code  for  the  program  is  located 
in  the  AEMS.FOR  file.  Its  executable  equivalent  is  AEMS . RUN .  The  ^ 
PMO  and  DCSRDA  users  have  access  to  this  program  only  through  the  ooM 
Master  Menu. 

b.  Functions  -  The  AEMS  program  reads  production  data  and 
asset  posture  from  the  JSM  data  base  for  a  given  list  of  items  and 
produces  a  formatted  output  report  which  is  used  for  interfacing 
with  DCSRDA' s  AEMS. 


Input  - 

(1)  Interactive: 


word . 


(a)  User  inputs  ORACLE  identification  and  pass 

(b)  User  inputs  beginning  FY  and  number  of  FYs . 


( c i  User  enters  filename  of  DODAC  file  containing 
the  list  of  pertinent  items. 

v d )  User  enters  output  filename. 

( e )  Pathnames  are  supported  for  reading  and  writ¬ 
ing  files  across  the  network. 

(2)  By  program: 

la)  From  REQTS_ARMY  table:  Read  FY.  package 
level,  and  quantity. 


unit  of  measure. 


lb)  From  REQTSjDTHER  table:  Read  FY  and  quantity. 

(c)  From  ITEM  table:  Read  SSN,  nomenclature,  and 

(d)  From  RAMP_ITEM  table:  Read  ending  assets. 
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(e)  From  ITEM_DATA  table:  Read  the  priority. 

(f)  From  PRODT  table:  Read  1-8-5  production  rate 

(g)  From  PftGDTFY  table:  Read  1-8-5  production 

rate . 


d.  Processing  - 

(]i  User  enters  ORACLE  identification  and  password. 

12)  Program  connects  to  ORACLE. 

131  Assume  RCN  equals  to  zero  for  any  information 
selected  from  the  data  base. 

(41  User  enters  the  beginning  FY  and  the  number  of 
FYs  (only  the  last  two  digits  of  the  FY  are  pertinent) . 

(5;  User  enters  file  name  for  input  file.  Program 
opens  specific  file  if  found. 

(6)  User  enters  output  file  name.  Program  opens 
speci f ic  file. 

i7>  Declare  a  cursor  to  retrieve  ail  quantity  informa¬ 
tion  by  FY  and  package  level  for  a  specific  DODIC  from  REQTS_ARMY 
-.able . 

{ 8 ’  Declare  a  cursor  to  retrieve  quantity  by  fiscal 
year  from  the  REQTS_0THER  table  for  same  DODIC  as  above. 

(9!  For  each  item  read  from  the  input  file,  do  the 

following : 


(a)  Search  ITEM  table  for  SSN,  nomenclature,  and 
unit  of  measure  for  the  item  read;  if  the  item  is  not  found,  write 
out  a  message  to  that  effect  and  go  to  next  item. 

(b)  Retrieve  the  END_ASSETS  asset  for  previous 
year  from  the  RAMP_ITEM  table  (this  will  be  used  as  the  beginning 
asset  posture  for  the  current  year):  if  the  DODIC  is  not  found, 
write  out  a  message  and  set  beginning  assets  to  zero. 

( c )  Divide  beginning  assets  by  1,000  to  get  in 

thousands . 
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(d)  Open  the  previously  declared  REQTS_ARMY  cursor 
and  retrieve  the  Army  requirements  for  the  DODIC  across  all  packages 
and  all  years  studied. 

(e)  Close  the  cursor. 

(f)  Open  the  previously  declared  REQTS_OTHER  cur¬ 
sor  and  retrieve  the  other  service  requirements  for  the  DODIC  across 
all  study  years. 

(g)  Close  the  cursor. 

(h)  For  each  year  studied,  read  the  item's  prior¬ 
ity  from  the  ITEM_DATA  table  and  the  1-8-5  production  rate  from  the 
PRODT  table.  The  latter  value  may  have  been  updated  so  the  PR0DT_FY 
table  must  be  read,  this  value  will  be  used  if  any  exists  in  the 
PRODT  FY  table. 


(i)  Write  the  gathered  data  to  the  output  file. 

(j)  Loop  to  next  item  read. 

(10)  End  report  when  end  of  file  is  reached. 

(11)  End  the  program. 

e.  Output  -  The  output  file  is  formatted.  Please  note  the 
enclosed  example  for  the  required  format. 

f.  Interfaces  -  This  program  only  requires  that  the 
specified  input  file  be  accessible.  It  requires  no  interfaces  with 
other  programs. 

g.  Tables  -  See  Annex  B. 

5.31.2  Conventions.  This  program  was  written  with  the  convention 
that  all  local  variables  end  with  a  '**  character  to  distinguish 
them  from  similarly  named  ORACLE  columns. 

5.31.3  Verification.  Verification  will  necessarily  be  done  using 
the  ORACLE  UFI  utility  to  manually  access  the  data  base. 

5.31.4  Error  Conditions.  Any  errors  will  be  documented  in  the  COMO 
file  produced  at  each  execution.  Note:  They  will  not  be  documented 
in  the  output  file. 

5.31.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPOM>iPQM. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5,32  Program.  Increased  Workload  Impact  Report  (IWIR.FOR) 

5.32.1  Program  Description.  The  Increased  Workload  Impact  Report 
program  is  written  in  structured  FORTRAN  77.  Source  code  is  found 
in  the  IWIR.FOR  file  which  is  input  to  the  ORACLE  precompiler  that 
builds  the  IWIR.F77  file.  This  file  is  then  compiled  with  the  F 7" 
compiler  and  loaded  using  the  BIND  utility  to  build  the  executable 
program  IWIR.RUN.  The  following  paragraphs  describe  the  IWIR.FOR 
program: 

a.  Identification  -  Source  code  for  this  program  is  found 
in  the  IWIR.FOR  fiie.  Its  executable  equivalent  is  IWIR.RUN.  Users 
will  have  access  to  this  program  only  through  the  JSM  Master  Menu. 

b.  Functions  -  The  1WIR  program  produces  the  Increased 
Workload  Impact  Report  which  details,  by  end  item,  the  impact  in 
work-years  that  would  result  by  increasing  production  of  each  end 
i tem  by  1  , 000  units. 

c.  Input  - 


password . 


codes . 


(1)  Interactive:  User  inputs  ORACLE  identification  and 


12)  By  program: 

(a)  From  PLANT  table:  Read  in  list  of  plant 


(b)  From  ICT  table:  Read  in  list  of  end  items, 
also  components  and  procurement  factors. 


(c)  From  ITEM  table:  Read  in  nomenclature  for  end 


l  terns . 


(d)  From  PRODT  table:  Read  plant,  line,  1-8-5  and 
2-8-5  production  and  Staffing  rates,  and  line  availability. 

d.  Processing  - 

(1)  User  enters  ORACLE  identification  and  password. 

(2)  Read  in  list  of  valid  plant  codes  from  PLANT  table. 

(3)  Read  in  list  of  end  items  from  ICT  table. 
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1 4  >  For  each  end-item  do  the  following: 

(a)  Declare  and  open  a  cursor  that  will  return  the 
plant,  line,  1-8-5  and  2-8-5  production  and  staffing  rates,  and  line 
availability  for  each  plant  which  produces  the  end  item  from  PRODT. 
If  no  plants  are  retrieved,  write  a  warning  message  to  the  screen 
and  loop  to  the  next  end  item. 

(b)  Check  the  plant  just  retrieved  against  the 
list  of  valid  plants.  If  the  plant  is  valid  then  continue;  other¬ 
wise,  write  an  error  message  and  pass  the  current  end  item. 

(c)  Calculate  work-years  for  this  item  according 
to  the  following  formula: 

Work-years  =  (1-8-5  staffing  *  (1-8-5  production  *  12)1  *  1000 

(d)  If  the  current  plant  is  the  first  retrieved 
for  the  current  end  item,  then  write  new  page  headings  to  output. 

(e)  Keep  track  of  work-years  by  plant  for  the  end 
item  for  subsequent  processing. 

( f  >  Write  plant,  line,  staffing,  and  production 
data  for  this  plant  to  the  output. 

(g)  Loop,  retrieve  next,  plant  for  current  end 
item.  If  no  more  are  found,  close  the  cursor  and  continue;  other¬ 
wise,  continue  as  in  5 . 32 .  Id  (  4  )  ( b )  . 

(h)  The  following  pertain  to  component  informa¬ 
tion.  The  sequence  will  be  passed  through  twice;  first  time  for 
primary  components  and  second  for  secondary  components. 

(  1_)  Declare  and  open  a  cursor  that  will 
retrieve  component  DODICs  and  their  procurement  factors  pertinent  tc 
the  current  end  item. 


(2)  Loop  through  this  cursor  keeping  track  of 
the  component  DODICs  and  the  procurement  factors. 

(3)  Close  the  cursor. 

(4)  For  each  component  retrieved  do  the 


foil  owing : 


(a)  Select  the  nomenclature  from  the 


ITEM  table . 
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( b )  Select  the  plant,  line,  1-8-5  and  2  - 
8-5  production  and  staffing  rates,  and  the  line  availability  from 
the  PBODT  table. 


(c)  Check  the  plant  just  retrieved  for 
validity.  If  the  plant  is  not  valid  then  write  a  warning  message  to 
the  screen  and  pass  this  component. 

(d)  Calculate  the  work-years  for  this 

item  by  the  following: 

Work'-years  =  (1-8-5  staffing  ?  (1-8-5  production  *  12))  * 

(1000  *  procurement  factor) 


(e)  Keep  track  of  the  work-years  by 
plant  and  item  status;  i.e.,  end  item,  primary  component,  secondary 
component,  for  subsequent  processing. 


( f_)  Write  the  component  type,  DODIC, 
nomenclature,  and  production  data  to  the  output. 

(£)  Declare  and  open  a  cursor  that  will 
retrieve  all  primary  subcomponents  and  their  procurement  factors 
from  the  ICT  table  for  the  current  component. 


( h ) 

selected  do  the  following: 

the  ITEM  table. 

PRODT  table. 


For  each  primary  subcomponent 

(1)  Select  the  nomenclature  from 


(2!  Select  production  data  from  the 


!3>  Check  the  plant  selected  for 
validity.  If  the  plant  is  not  valid,  then  generate  a  warning 
message  to  the  screen  and  pass  this  plant. 

'4)  Compute  work-years  for  the 
primary  subcomponent  according  to  the  following: 


Work-years  -  (1-8-5  staffing  rate  for  primary  component  r  (1-8-5 
staffing  rate  for  primary  component  «  12))  «  (1000  *  procurement 
factor  of  current  primary  or  secondary  component  »  procurement 
factor  of  primary  subcomponent) 


(5)  Keep  track  of  work-years  by 
plant  and  component  type  for  subsequent  processing. 
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16!  Write  the  production 

information  to  the  output  file. 

17)  Loop  for  next  primary 

subcomponent . 


secondary)  and  continue. 

(5) 

continue. 


(ij  Loop  to  next  c  ..conent  (primary  or 


Loop  to  secondary  components  and 


(i)  Loop  through  the  valid  plants  for  the  current 
end  item.  Keep  track  of  the  minimum  and  maximum  work-years  for  this 
item.  Write  the  plant  name  and  the  work-years  associated  with  the 
primary  component,  secondary  component,  and  primary  subcomponents  to 
the  output.  Keep  track  of  total  work-years  for  primary  and  second¬ 
ary  components  for  subsequent  processing. 

( j  >  Write  the  minimum  and  maximum  plant  work-years 

to  the  output. 

!k)  Write  the  primary  component  work-years  and  the 
secondary  component  work-years  to  the  output. 


(1!  Loop  to  next  end  item  and  continue. 

(5  This  program  is  obviously  recursive  in  nature  but 
ORACLE  does  not  allow  recursion  at  this  time;  therefore,  duplication 
of  coding  was  requ.red. 

e.  Output  -  Increased  Workload  Impact  Report. 

f.  Interfaces  -  This  program  requires  no  special  inter¬ 
facing  with  any  other  program. 

g.  Tables  -  See  Annex  B. 

5.32.2  Conventions.  This  program  was  written  with  the  convention 
that  locai  variables  all  end  with  a  character.  This  will  help 

distinguish  them  from  similarly  named  table  columns.  Also,  no 
format  control  is  required  when  the  output  is  spooled.  The  output 
contains  information  that  wi 1 i  signal  the  printer  to  look  for  format 
controls . 


5.32.3  Verification  Procedures.  Verification  must  be  done  using 
the  ORACLE  UFI  utility  to  access  the  data  base. 
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5.32.4  Krror  Conditlona.  All  errors  will  be  documented  in  the  COMO 
fila  produced  at  each  execution  of  the  program. 

5.32.5  Listings .  Program  lifting  is  located  in  <SYSSA>SAXPGM>*PGM. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 


DA  row  4752-1,  API  63 


REPLACES  DA  FROM  5752,  107  78,  WICH  IS  OBSOLETE. 
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5.33.  Program.  Ammunition  Scheduling  Model  (PS. FOR) 

5.33.1  Program  Description.  Program  for  generating  an  ammunition 
production  schedule  for  a  specified  Program  Objective  Memorandum 
(POM)  period  of  years.  Production  Scheduling  (PS)  is  written  in 
structured  FORTRAN  77  with  embedded  SQL  statements.  The  source  code 
contains  about  4,100  lines  including  comments  and  is  in  a  file  named 
PS. FOR.  This  file  must  be  precompiled  using  the  ORACLE  FORTRAN  host 
language  precompiler  which  replaces  the  embedded  SQL  statements  with 
calls  to  library  routines.  The  precompiler  generates  ar.  intermed¬ 
iate  file  --  PS.F77  --  which  is  compiled  with  the  PRIME  F77 
compiler.  The  PRIME  BIND  linker  utility  is  used  to  produce  an 
executable  run  module  --  PS. RUN. 

a.  Functions  -  The  program  reads  information  from  a  fiie 
produced  by  the  BUILD_PTR  program  called  PTR_ARRAYS.  extracts  item, 
production  and  requirements  information  from  the  PJSM  ORACLE  data 
base,  produces  an  ammunition  production  schedule  for  a  specified  POM 
period,  and  writes  detailed  and  summary  results  to  the  data  base. 

The  results  in  the  data  base  are  then  available  for  all  of  the 
output  report  generators  needed  for  an  analysis  of  the  ammunition 
schedule . 


b.  Input  -  The  program  requires  a  valid  ORACLE  user  name 
password  and  RCN ,  and  several  guidance  parameters  related  to  the 
restart  option.  All  other  data  are  obtained  from  a  file  called 
PTR_ARRAYS  and  the  ORACLE  data  base: 

(1)  From  PTR_ARRAYS  file:  A  list  of  DODICs.  the  rela¬ 
tionship  between  end  items  and  their  primary  components,  procurement 
factors  (PFs)  of  the  primary  components,  relationship  between  end 
items  and  their  secondary  components,  procurement  i actors  of  the 
secondary  components,  plant  codes,  production  location  (plant  and 
line)  of  each  item,  and  relationship  between  the  primary  components 
and  the  end  items  they  are  used  on. 

(2)  From  REVTAB  table:  Beginning  FY,  number  of  FYs. 
level  of  training,  depot  pipeline,  asset  indicator,  and  sharing 
indicator,  where  RCN  is  that  specified  by  the  user. 

(3)  From  LINE  table:  Line  number  and  plant  code, 
ordered  by  line. 

(4)  From  RAMP_ITEM  table:  DODIC  and  END-ASSETS,  where 
FY  -  Beginning  FY  -  1 ,  ordered  by  DODIC. 
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(5)  From  PRODT  table:  1-8-5  production  rate,  2-8-5 
production  rate,  1-8-5  direct  labor  staffing,  2-8-5  direct  labor 
staffing,  line  availability,  maximum  production  allowed,  where  DODIC 
=  current  DODIC  being  processed  and  line  =  current  line  number  which 
the  DODIC  can  be  produced. 

(6)  From  ITEM  table:  DODIC.  new  materiel  fielding 
code  (NMF) ,  family  code  (FAMILY),  and  sub-family  code  (SUB_FAMILY) , 
ordered  by  DODIC. 

17)  From  SERVICE  table;  Service  codes. 

(8)  From  ITEM_DATA  table: 

(a)  UNIT_PRICE  (for  Army)  and  Maximum  Inventory 
Allowed  (MIA)  where  RCN  is  that  specified  by  user  or  equal  to  zero, 
and  DODIC  and  FY  =  current  ones  being  processed. 

(b)  DODIC  and  P0M_C0ST,  where  FY  is  the  current 
one  being  processed,  P0M_C03T  is  greater  than  zero,  and  RCN  is 
either  zero  or  the  one  specified  by  the  user,  order  by  DODIC  and 
RCN. 

(c)  DODIC  and  PRI ,  where  FY  is  the  current  one 
being  processed,  and  RCN  -  0,  ordered  by  PRI. 

(d)  DODIC  and  ALT_PRI ,  where  FY  is  the  current  one 
being  processed  and  RCN  =  0,  ordered  by  ALTPRI . 

(9)  From  STAFF  table:  Number  of  direct  labor  employees 
and  the  percent  of  the  direct  labor  employees  which  can  be  work- 
loaded,  where  RCN  is  either  the  one  specified  by  the  user  or  zero, 
and  PLANT  and  FY  equal  to  the  current  one  being  processed. 

(10)  From  PR0DT_FY  table:  DODIC,  plant  code,  line 
number,  production  rates  for  a  2-8-5  and  a  2-8-5  operation  along 
with  their  respective  direct  labor  staffing,  month,  availability  of 
the  line,  and  maximum  production  allowed,  where  FY  is  less  than  or 
equal  to  the  current  FY  being  processed,  RCN  =  0  or  the  one  speci¬ 
fied  by  the  user,  order  by  FY,  DODIC,  LINE,  and  RCN. 

(11)  From  TREQ  table:  DODIC,  draw  down  quantity, 
buildup  quantity,  other  service  requirement,  Army  test  and  training 
requirement,  and  total  Army  requirement,  where  RCN  is  the  one 
specified  by  the  user,  and  FY  =  the  current  one  being  processed, 
order  by  DODIC. 
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(12)  From  RAMP_PR0D  table:  DODIC,  plant  code,  line 
number  and  total  undelivered  quantity,  where  UNDEL_T0T  ■  0  and  FY  - 
the  beginning  FY  -  1 . 

(13)  From  REQTS_0THER  table:  DODIC,  service  code,  unit 
price  and  required  quantity,  where  FY  is  the  current  one  being 
processed,  order  by  DODIC  and  SERVICE. 

(14!  From  REQTS_ARMY  table:  DODIC  and  required 
quantity,  where  FY  and  PKGL  are  the  current  ones  being  processed. 


i 15)  From  GOALS  table:  Activity_I  dollar  amount  and 
percent  of  training  which  is  applied  to  all  items,  where  FY  =  the 
current  one  being  processed  and  RCN  is  either  0  or  the  one  specified 
by  the  user. 

(16)  From  PFSTAB  table:  PKGL  and  the  PDIP  funding 
sequence,  where  RCN  =  0  or  the  one  specified  by  the  user,  order  by 
PKGL  and  RCN. 

(17)  From  RESULT4  table:  Beginning  assets  for  the 
restart  option,  DODIC  and  E_ASSETS  (which  are  used  as  the  beginning 
assets  for  the  restart  option),  where  RCN  =  the  one  specified  by  the 
user  and  FY  -  beginning  FY  -  1 ,  order  by  DODIC. 


(18)  From  RESULT  1  table:  DODIC  and  SFALL.QTY  (which 
are  used  as  the  undelivered  'RAMP  year'  quantities  for  the  restart 
option),  where  RCN  =  the  one  specified  by  the  user,  FY  =  beginning 
FY  -  1,  PKGL  =  0,  and  SFALL  QTY  >0. 


c.  Processing  -  Since  this  program  is  fairly  lengthy,  this 
processing  Section  is  sub-divided  into  an  overview  section,  a  narra¬ 
tive  of  the  decision  flow  process,  a  subroutine  cross-reference 
section,  and  a  detailed  walk  through  the  model. 

(1)  Overview  -  The  following  is  a  brief  overview  of  the 
production  scheduling  model: 

(a)  The  ORACLE  user  name  and  password,  the  RCN, 
and  the  restart  flag  are  obtained  from  the  command  screen.  If  the 
restart  flag  is  set  to  ’Y’,  then  the  beginning  year  for  the  study 
run,  the  number  of  years  for  the  run,  and  the  last  FY  with  available 
requirements  are  also  obtained  from  the  command  screen. 

(b)  From  REVTAB  study  parameters  are  obtained, 
such  as  the  beginning  FY,  number  of  FYs ,  level  of  training,  depot 
pipeline,  asset  indicator,  and  sharing  indicator. 
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(c)  Any  data  related  to  the  RCN  are  deleted  from 
the  RESULT  tables. 

(d)  Initial  data  are  read  from  the  PTR_ARRYS  and 
obtained  from  the  ORACLE  data  base.  These  data  include  the  items  to 
be  studied,  the  relationship  between  end  items  and  their  primary  and 
secondary  components,  the  beginning  assets  for  each  item,  and  the 
production  data. 

(e)  For  each  year  to  be  processed,  the  following 
steps  are  performed.  After  all  steps  are  performed  for  that  year, 
the  next  year's  data  are  processed  in  the  same  manner.  This  con¬ 
tinues  until  the  number  of  FYs  for  this  RCN  are  processed. 

(U  Yearly  data  are  updated  and  some  arrays 
are  initialized.  From  the  ORACLE  data  base,  each  item’s  unit  price 
is  retrieved  along  with  any  maximum  inventory  constraints.  The 
plant  staffs,  any  changes  to  the  production  capabilities,  and  each 
item’s  draw  down  and  buildup  targets  are  also  retrieved. 

(2)  The  undelivered  RAMP  year  quantities  are 
scheduled  for  production  at  designated  facilities  along  with  the 
item's  primary  components.  At  each  facility  the  amount  of  staff 
used  and  the  amount  of  production  capacity  used  are  subtracted  from 
the  amount  available.  The  detailed  results  for  scheduling  the 
undelivered  RAMP  year  quantities  are  written  to  the  RESULT1  table. 

(3)  The  other  customer  requirements  and  the 
item's  primary  components  are  scheduled  for  production  at  the  appro¬ 
priate  production  facilities.  As  each  item  is  scheduled,  the  staff¬ 
ing  level  and  the  amount  of  production  capacity  used  are  subtracted 
from  the  amounts  available.  The  detailed  results  for  scheduling  the 
other  customers  quantities  are  written  to  the  RESULT2  table. 

(4)  The  Army  requirements  are  now  processed. 
Before  processing  each  item’s  requirement,  the  Activity  I  dollars 
are  retrieved,  along  with  the  percent  of  training  which  is  applied 
to  all  items.  The  POM  costs  are  obtained  and  subtracted  from  the 
Activity  I  dollars,  yielding  an  amount  which  can  be  used  to  purchase 
additional  hardware.  The  PDIP  funding  sequence  and  each  item's 
relative  priority  are  read. 

(51  Each  PDIP  is  processed  in  the  specified 
PDIP  funding  sequence.  Within  each  PDIP,  the  items  are  processed  in 
the  specified  priority  order.  For  each  item,  production  is  scheduled 
to  satisfy  its  requirements  and  its  related  primary  components.  The 
requirements  are  computed  and  accumulated  for  its  related  secondary 
components.  After  processing  ail  of  the  required  items  in  the  PDIP, 
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and  before  proceeding  to  the  next  PDIP,  the  accumulated  requirements 
for  the  secondary  items  are  scheduled  for  production.  The  detailed 
results  for  this  PDIP  are  written  to  the  RESULT1  table  and  then 
processing  continues  with  the  next  PDIP. 

(6)  Once  all  of  the  PDIPs  are  processed  for  a 
FY,  summary  results  are  written  to  the  RESULT3,  RESULT4,  RES0LT5  and 
RESULTS  tables.  Processing  then  resumes  for  the  next  FY. 

(2)  Narrative  Description  -  A  narrative  description  of 
the  decision  flow  process  embedded  in  the  production  scheduling 
model  is  presented  in  Annex  C. 

(3)  Subroutine  Cross-reference  -  Following  is  an 
alphabetical  listing  of  the  subroutines  used  in  the  production 
scheduling  model  program.  Figure  5.33.1-1  depicts  the  interrela¬ 
tionship  among  these  subroutines. 

(a)  AREQ.  Processes  the  Army  requirementss  in  a 
specified  priority  order  within  each  PDIP,  writes  to  RESULT 1  table 
(via  routines  RFILE  and  BSLT1) ,  accumulated  data  for  other  output 
tables  (RESULT3  through  RESULT6) ,  and  computes  and  accumulates  the 
requirements  for  secondary  items  (prop  charges,  primers,  and  fuzes). 

(b)  BLDPRI.  Builds  the  priority  arrays  used  to 
establish  the  sequence  in  which  items  are  processed  within  each 
PDIP. 

(c)  CRESLT.  Clears  the  previous  results  for  this 
RCN  from  the  tables  ( RESULT 1  through  RESULTS) . 

(d)  INIT.  Reads  data  from  the  PTR_ ARRAYS  file  and 
builds  the  pointer  arrays  used  in  this  program.  It  also  retrieves 
the  beginning  assets,  production  data,  and  family  codes  from  the 
ORACLE  tables. 

(e)  INVEN.  Applies  any  available  inventory  to  the 
Army  items  requirement. 

(f)  MATCH.  Uses  a  binary  search  to  locate  and 
match  the  requested  DODIC  to  one  in  the  ITEM  array.  When  a  match  is 
found,  the  ITEM_N0  is  returned. 

(g)  OCR.  Processes  the  other  customer  reqvvrr- 
ments  in  DODIC  order,  accumulates  the  results  via  routine  RFILE, 
writes  the  results  to  RESULT2  table,  and  accumulates  data  for  other 
output  products  (RESULT3  through  RESULTS) . 


5-204 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(hi  PRCOMP .  Processes  each  primary  component 
which  is  passed  to  it  by  routine  PRICMP,  writes  results  to  either 
RESULT1  or  RESULT2  table  via  routines  RFILE  and  RSLT1,  and  accumu¬ 
lates  data  for  other  output  tables  (RESULT3  through  RESULT6) . 

(1)  PRICMP.  Selects  the  primary  components  for 
the  required  item,  computes  the  component’s  requirements,  and  passes 
those  requirements  to  the  routine  PRCOMP.  This  is  done  for  the 
item's  primary  components  as  well  as  for  the  primary  component’s 
primary  components. 

(j)  PROSEC.  Processes  the  secondary  component 
requirements,  writes  results  to  the  RESULT1  table  via  routines  RFILE 
and  RSLT1 .  and  accumulates  data  for  other  output  tables  (RESULT3 
through  RESULT6) . 

!k)  RFILE.  Records  the  transactions  for  RES'JLTl 
and  RESULT2  tables  in  temporary  files.  These  transactions  will  be 
written  to  the  tables  via  Routine  RSLT1  after  further  processing  in 
the  program. 

(l)  RSLT1.  Writes  the  accumulated  results  to 

RESULT  1  table. 

(m)  RSLT.  Prepares  and  writes  the  accumulated 
data  to  RESULT3  through  RESULT6  tables. 

(n)  SRCH.  Searches  the  item  array  in  DODIC  order, 
matches  the  requested  DODIC,  and  then  returns  the  ITEM_N0. 

(o)  WRKLD.  Determines  if  there  are  available 
resources  to  produce  a  required  item,  and  if  so,  schedules  it  for 
production  and  decrements  the  remaining  resources  appropriately. 

(p)  UPDATE.  Updates  the  yearly  data  for  unit 
prices,  plants  staffs,  production  capability,  and  each  item's  draw 
down  and  buildup  targets.  It  also  controls  the  processing  and 
scheduling  of  the  undelivered  RAMP  year  quantities. 

(q)  YEARLY.  Obtains  TOA  Activity  I  dollars,  the 
POM  costs  for  specified  items,  the  PDIP  funding  sequence,  and  the 
percent  of  level  I  training  to  be  funded  for  each  item. 

(4)  Detailed  Review  -  This  section  will  provide  a  more 
detailed  account  of  the  process  with  reference  to  data  arrays  and 
subroutine  calls. 
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(a)  The  ORACLE  user  name  and  password,  the  RCN, 
and  the  restart  flag  are  obtained  from  the  command  stream.  If  the 
restart  flag  is  set  to  'Y‘,  then  the  beginning  year  for  the  study 
run,  the  number  of  years  for  the  run,  and  the  last  FY  with  available 
requirements  are  also  obtained  from  the  command  stream. 

(b)  From  REVTAB ,  the  following  values  are 

extracted:  Beginning  FY,  number  of  FYs ,  level  of  training  require¬ 

ments,  depot  pipeline  indicator,  asset  indicator,  and  the  sharing 
indicator . 

(c)  Routine  CRESLT  is  called,  which  deletes  from 
the  result  tables  all  data  related  to  the  RCN,  which  is  greater  than 
or  equal  to  the  beginning  year  for  this  study  run.  Upon  completion, 
the  operation  returns  to  MAIN. 

(d)  Routine  INIT  is  called,  which  reads  the 
initial  input  data. 

(e)  From  the  PTR_ARRAYS  file: 

(1_>  Each  item’s  DODIC  is  read  and  loaded  into 

the  ITEMS  array. 

(2)  Each  item’s  primary  component  and  pro¬ 

curement  factor  are  read  and  loaded  into  the  PC0MP_PTR  array  (a 
pointer  array),  the  PCOMP  array  (a  data  array  which  points  to  the 

item’s  DODIC  in  the  ITEMS  array  and  also  contains  a  pointer  to  the 

next  primary  component) ,  and  the  PFAC_PRIME  array  (a  data  array 
containing  procurement  factors. 

(3)  Each  item’s  secondary  component  and  pro¬ 

curement  factor  are  read  and  loaded  into  the  SCOMPPTR  array  (a 
pointer  array),  the  SCOMP  array  (a  data  array  which  points  to  the 

item’s  DODIC  in  the  ITEMS  array  and  also  contains  a  pointer  to  the 

next  secondary  component),  and  the  PFACSEC  array  (a  data  array 
containing  procurement  factors). 

(4)  The  plant  codes  are  read  and  loaded  into 

the  PLANT  CODE  array. 

(5)  Each  item’s  production  locationls)  is 
read  and  loaded  into  the  IPL_PTR  array  (a  pointer  array) ,  the 
PR_LINE  array  (an  array  which  points  to  the  next  production  loca¬ 
tion)  ,  and  the  IPL  array  (a  data  array  containing  the  plant  and  line 
information) . 
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(6)  For  each  primary  component,  the  list  of 
end  items  which  use  it  are  read  and  loaded  into  END_I?EM_PTR  array 
(a  pointer  array) ,  and  the  END_ITEM  array  (a  data  array  which  points 
to  the  item’s  DODIC  in  the  ITEMS  array  and  also  contains  a  pointer 
to  the  next  end  item). 

(7)  From  LINE  table,  the  line/plant  combina¬ 
tions  are  extracted  from  the  LINE  table  (in  order  of  the  line 
number)  and  loaded  into  the  LPLANT  array. 

(8)  The  E_ASSETS  array  is  now  loaded  with 
beginning  assets  from  either  the  RAMP_iTEM  table  or  the  RESULT4 
table.  If  the  beginning  FY  of  this  run  equals  the  beginning  FY 
specified  in  the  REVTA8  table,  then  the  JODIC  and  END_ASSETS  are 
obtained  from  RAMP_ITEM  where  FY  =  beginning  FY  -  1 ,  order  by  DODIC. 
Otherwise,  the  DODIC  and  E_ASSET5  are  obtained  from  RESUL74 ,  where 
RCN  =  the  one  specified  by  the  user  and  FY  =  beginning  FY  -  1 ,  order 
by  DODIC. 

(9)  From  the  PRODT  table,  production  data 
(R185,  R285 ,  S185,  S285,  AVAIL,  and  maximum  production  allowed 
(MPA))  are  extracted  and  loaded  into  the  PR0D_CAP  array  (a  data  array 
which  contains  the  yearly  production  capability  for  both  the  first 
and  the  second  shifts  of  operation),  the  STAFF_REQT$  array  (a  data 
array  which  contains  the  staff  required  to  support  the  production 
rates) ,  and  the  MAXPA  array  (a  data  array  which  contains  any  MPA 
constraint  for  an  item).  For  the  first  shift,’ the  monthly 
production  rate  (R185)  is  multiplied  by  12  and  loaded  into  the 
PR0D_CAP  array,  and  its  related  staffing  requirement  is  loaded  into 
the  STAFF_REQTS  array.  For  the  second  shift,  the  monthly  production 
rate  (R285)  is  multiplied  by  12,  the  yearly  production  for  the  first 
shift  is  subtracted,  and  the  resultant  is  loaded  into  the  PROD_CAP 
array.  The  people  needed  to  support  the  second  shift  (S285  -  S185) 
is  also  loaded  into  the  STAFFREQTS  array. 

(10)  From  the  ITEM  table,  each  item’s  NMF  and 
family  and  subfamily  codes  are  obtained  and  ioaded  into  the  NMF_C0DE 
array  and  the  FAM_CODE  array.  In  order  to  load  the  FAM_C0DE  array, 
the  FAMILY  code  is  multiplied  by  10  and  added  to  the  SUB_FAMILY; 
that  result  is  loaded  into  the  FAMCODE  array. 

(11)  From  the  SERVICE  table,  the  service 
codes  are  read  and  loaded  into  the  SERV  array. 

1 12)  Upon  completion  of  the  above,  the 
operation  returns  to  the  MAIN. 
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(f)  In  the  MAIN,  a  loop  is  sen  up  whereby  each  FY 
is  processed.  1  year  at  a  time.  Processing  begins  with  the  starting 
FY  for  the  run,  and  is  incremented  by  one  after  ail  the  following 
steps  have  been  performed. 

(g)  Routine  UPDATE  is  called  to  read  the  data  that 
can  fluctuate  each  year  and  also  process  the  undelivered  RAMP  year 
quant i t l es . 


(1_)  Ail  arrays  which  contain  yearly  data  are 
initialized  to  their  appropriate  values.  For  example,  the  RPCT_LINE 
array  (the  remaining  percent  of  line  array)  and  the  RPCT_STAFF  array 
(the  remaining  percent  of  staff  at  each  plant)  are  initialized  to 
100  percent. 

(2)  From  the  ITEM_DATA  table,  for  the  FY 
being  processed,  each  item's  unit  price  and  maximum  inventory 
allowed  (MIA)  constraint  are  extracted  and  loaded  into  the  UP  array 
and  the  MAXIA  array.  This  is  one  for  RCN  =  the  one  specified  by  the 
user.  If  no  data  exists  for  that  item,  the  data  is  extracted  from 
the  baseline  (RCN  =  0) . 

(3)  From  the  STAFF  table,  the  values  for  goal 
(percent)  and  direct  labor  are  extracted  for  each  plant.  This  is 
done  for  RCN  =  the  one  specified  by  the  user.  If  no  data  exists  for 
that  RCN,  then  data  is  extracted  from  the  baseline  (RCN  =  0).  The 
value  for  GOAL  is  divided  by  100  to  obtain  a  percent.  This  percent 
is  multiplied  by  DIRECT,  with  that  product  loaded  into  the  PSTAFF 
array  (the  plant  staff  array). 

(4)  From  the  PR0DT_FY  table,  values  for 
production  data  and  MPA  which  vary  by  year  are  obtained  and  used  to 
update  the  data  in  the  PR0D_CAP  array  (production  capability  array!  , 
the  STAFFREQTS  array,  and  MAXPA  array  (maximum  production  allowed 
array).  For  the  D0DIC  and  line  that  is  being  processed,  if  AVAIL  = 
0,  then  the  D0DIC  is  not  allowed  to  be  produced  on  that  line  and  the 
production  rates  and  staffing  requirements  are  set  to  zero  in  the 
PR0D_CAP  and  STAFF_REQTS  arrays.  Otherwise  a  variable  RATIO  is 
computed,  setting  it  equal  to  (12.  -  MO  +  l.)/12.  This  ratio  is  a 
weighting  factor,  specifying  a  percent  (portion  of  a  year)  to  be 
applied  to  the  new  data  read  in  from  PR0DT_FY.  For  the  first  shift, 
the  PR0D_CAP  array  is  recomputed  as  (1-RATI0)  times  its  current 
value  plus  the  product  of  RATIO  times  12.  times  R185.  In  like 
manner,  STAFF_REQT8  =  its  current  vaiue  times  ( I  -  RAT 1 0 )  plus  (S285- 
S185)  times  RATIO,  and  STAFF_REQTS  -  its  current  value  times  (1.- 
RATIO)  plus  (S285-S185)  times  RATIO.  Once  the  PRODT_rY  table  is 
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read,  the  IPL_PTR  array  is  checked;  if  IPL_PTR  for  an  item  =  0  then 
RCCDE  (reason  code)  =  'H'  for  that  item,  meaning  that  it  cannot  be 
produced  at  any  production  facility. 

(51  From  the  TREQ  table,  each  item's 
summarized  requirements  are  extracted.  Values  for  the  buildup 
quantity,  draw  down  quantity,  total  other  customer  requirement,  test 
and  training  requirement,  and  total  Army  requirement  are  loaded  into 
the  BUILDUP.  DRAWDN,  TOT_OC,  TGTTATR ,  and  T0T_ ARMY  arrays ,  respec¬ 
tively. 

Ih)  The  undelivered  RAMP  year  quantities  are  now 
processed.  For  the  first  year  processed,  if  the  FY  being  processed 
equals  the  beginning  FY  in  REVTAB  fro  the  specified  RCN,  the 
undelivered  RAMF  year  quantities  are  obtained  from  the  RAMP_PR0D 
table,  where  UNDEL_T0T  >  0  and  FY  -  beginning  FY.  If  the  fir3t  year 
processed  is  for  a  restart  where  the  first  year  is  not  equal  to  the 
beginning  FY  in  REVTAB  for  the  specified  RCN.  then  DODIC  and 
SFALL_QTY  are  obtained  from  RESULT4  where  RCN  -  the  one  specified  by 
the  user,  FY  =  beginning  FY  ♦  1 ,  PKGL  -  0,  and  SFALL_QTY  >  0.  For 
the  remaining  years  of  the  study,  the  undelivered  quantities  which 
were  not  scheduled  the  first  year  are  obtained  from  several 
internally  stored  arrays  --  UD0D1C  (an  array  containing  the  DODIC 
which  has  undelivered  quantities  which  need  to  be  scheduled) ,  U1TM 
(an  array  containing  an  internally  assigned  item  number),  UPTR  (a 
pointer  array  which  points  to  the  location  of  the  production 
facility  for  that  item),  and  UQTY  (an  array  containing  the  quantity 
which  needs  to  be  scheduled  for  production) . 

(1_)  Routine  WRKLD  is  called  m  an  attempt  to 
satisfy  a  requirement.  Since  routine  WRKLD  is  called  from  eight 
different  places  throughout  the  modei,  it  is  addressed  separately. 

(2)  If  the  required  item  was  scheduled  for 
production  (via  routine  WRKLD).  then  routine  PRICMP  is  called  where 
production  of  the  primary  components  is  scheduled.  Since  routine 
PRICMP  is  called  from  several  places  throughout  the  model,  it  is 
also  discussed  separately. 

(3!  As  each  transaction  is  processed,  routine 
RFILE  is  called  in  order  to  store  the  data.  Again,  this  routine  is 
called  many  times  and  is  addressed  separately. 

(4)  Once  all  undel'vered  quantities  arc 
processed  for  the  FY,  routine  RSLT1  is  called  to  write  the  data  to 
the  RESULT!  table. 
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(5)  Upon  completion  of  the  above,  the 
operation  returns  to  the  MAIN. 

(  i  In  the  MAIN,  the  next  step  is  to  process  the 
other  customer  requirements.  To  do  this,  subroutine  OCR  is  called. 

( 1_)  From  the  REQTS_OTHER  table,  each 
service’s  requirements  for  each  item  are  obtained  in  alphabetical 
order  and  processed. 


(2)  If  the  other  customers  are  allowed  to  use 
Army  inventory  in  excess  of  the  Army’s  draw  down  quantity,  then  that 
quantity  is  used  to  satisfy  as  much  of  the  other  customer's  require¬ 
ments  as  possible. 


(3)  Routine  WRKLD  is  called  in  an  attempt  to 
satisfy  the  unfilled  portion  of  the  requirement.  Since  routine 
WRKLD  is  called  from  eight  different  places  throughout  the  model,  it 
is  addressed  separately. 

(4)  If  the  required  item  was  scheduled  for 
production  (via  routine  WRKLD),  then  routine  PRICMP  is  called  where 
production  of  primary  components  is  scheduled.  Since  routine  PRICMP 
is  called  from  several  places  throughout  the  model,  it  is  also 
discussed  separately. 


(5)  As  each  transaction  is  processed,  routine 
RFILE  is  called  in  order  to  store  the  data.  This  routine  is  called 
many  times  and  is  addressed  separately. 

(6)  Once  all  the  other  customer  requirements 
are  processed  for  the  FY,  the  transactions  are  written  to  the 
RESULT2  table  for  the  FY  and  RCN  being  processed.  Before  writing 
each  transaction,  the  dollar  value  of  the  inventory  is  set  equal  to 
the  quantity  of  inventory  used  times  the  unit  price,  and  the  dollar 
value  of  production  is  set  equal  to  the  quantity  produced  times  the 
unit  price.  Upon  completion  of  the  other  customer  requirements, 
the  operation  returns  to  the  MAIN. 

( j )  In  the  MAIN,  the  next  step  is  to  process  the 
Army  requirements.  To  do  this,  subroutine  AREQ  is  called. 

(  1_)  When  processing  the  Army  requirement, 
first  some  data  related  to  the  FY  must  be  processed.  Those  data  are 
extracted  via  subroutine  YEARLY. 
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(2)  In  YEARLY,  the  amount  of  money  available 
(in  millions)  for  Activity  1  and  the  percent  of  level  I  training  to 
be  used  for  all  items  is  obtained  from  the  QOALS  table,  where  FY  is 
the  current  one  being  processed  and  RCN  is  either  the  one  specified 
by  the  user  or,  if  not  found,  RCN  *  0.  The  POM  costs  (in  millions) 
are  then  obtained  from  the  ITEM_DATA  table,  where  FY  *  the  current 
year  being  processed,  P0M_C0ST  >  0,  and  the  RCN  in  either  the 
baseline  (RCN  -  0)  or  in  the  value  specified  by  the  user,  ordered  by 
DODIC  and  RCN.  The  P0M_C0ST  item  is  first  checked  to  determine  if 
it  is  for  production  base  or  for  hardware;  i.e.,  the  FAM_CODE  for 
that  item  is  checked.  If  FAM_C0DE  ■  73  (Family,  subfamily  3),  then 
it  is  for  production  base  and  those  POM  costs  are  not  included. 
Otherwise,  the  POM  costs  are  subtracted  from  the  Activity  I  dollars, 
yielding  the  amount  which  can  be  allocated  to  buy  the  required 
ammunition. 


(3)  From  the  PFSTAB,  the  sequence  in  which 
the  PDIPs  are  to  be  processed  is  obtained. 

(4)  From  the  ITEM_DATA  table,  the  percent 
training  values  are  obtained  for  each  item  which  varies  from  the 
percent  training  value  obtained  from  the  QOALS  table.  The  percent 
training  values  in  the  GOALS  and  ITEM_DATA  table  are  in  whole 
numbers  and  need  to  be  divided  by  100  to  become  actual  percentages. 

The  percent  training  values  for  each  item  are  stored  in  an  array 
called  TRNQ.  Processing  is  then  returned  to  the  AREQ  subroutine. 

(5)  Routine  BLDPRI  (abbreviation  for  Build 
Priorities)  is  then  called  in  order  to  obtain  the  priority  order  by 
which  to  process  the  items. 

(6)  In  BLDPRI,  the  priorities  for  processing 
the  items  are  obtained  from  the  1TEM_DATA  table.  The  DCS0PS 
priorities  are  stored  in  an  array  called  PRIORITY,  while  an  alter¬ 
nate  priority  scheme  is  stored  in  an  array  called  ALT_PRI0RITY. 

Upon  completion,  the  operation  is  returned  to  subroutine  AREQ. 

(7)  In  AREQ,  the  Army  requirements  are 
processed  in  the  order  that  the  PDIPs  are  to  be  funded.  For  each 
PDIP,  the  Army  requirements  are  extracted  for  each  item  from  the 
REQTS_ARMY  table  and  loaded  into  an  array  called  AREQTS. 

(8)  Within  each  PDIP,  the  items  are  processed 
in  the  priority  sequence  which  was  stored  in  the  array  called 
PRIORITY.  The  item’s  requirement  is  initially  set  equal  to  a  variable 
called  SFALL.QTYf,  and  as  the  requirement  is  filled,  the  SFALL_QTY 
(shortfall  requirement)  is  reduced. 
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(9)  If  the  PDIP  being  processed  is  number  10 
or  11  and  Laval  2  training  is  not  to  ba  funded,  than  the  item’s 
requirement  cannot  be  filled  and  a  reason  code  3  ' F*  is  assigned. 

( 10)  If  the  pipeline  (PKQL  *  6  or  11)  is  to  be 
filled  over  a  3-year  period  and  the  current  year  being  processed  is 
either  the  first  or  second  year,  then  the  portion  of  the  pipeline 
which  is  not  allowed  to  be  filled  is  computed  and  stored  in  a  local 
variable  called  EXTRA  and  a  reason  code  3  'G*  is  assigned.  When  the 
first  year  is  being  processed,  EXTRA  3  the  required  quantity  times 
(1.  -  (90./200.));  otherwise  when  the  second  year  is  being 
processed,  EXTRA  =  the  required  quantity  times  (1.  -  146. /200.)). 

(11)  If  the  item  has  assets  in  inventory,  then 
subroutine  INVEN  is  called.  In  INVEN,  if  the  PDIP  being  processed 
is  a  test  or  training  requirement  (package  number  2,  5,  or  10),  then 
any  assets  in  excess  of  the  item's  draw  down  quantity  are  applied  to 
the  item's  requirements.  For  any  other  PDIP,  the  available  assets 
are  applied  to  the  requirement.  If  assets  are  applied,  then  the 
ending  asset  position  and  the  draw  down  and  buildup  levels  are 
adjusted.  The  operation  is  then  transferred  back  to  routine  AREQ. 

( 12)  The  reason  code  array  (ROODS)  for  the 
item  is  now  checked  to  determine  if  processing  should  continue.  No 
further  processing  for  the  item  is  required  if  RCODE  3  'A'  (lack  of 
sufficient  funds),  'B'  (item  has  a  production  capacity  constraint), 
'C'  (there  is  a  staffing  constraint  at  the  plant(s)  where  the  item 
is  produced) ,  'D'  (one  of  the  item’s  primary  components  can  not  be 
produced),  or  'H'  (the  item  has  no  production  facilities  available). 

( 13)  If  the  item's  requirement  was  not  filled 
with  assets  from  inventory  and  the  PDIP  being  processed  is  for  a 
Days  of  Supply  (DOS)  requirement  (PDIP  number  3,  4,  6,  7,  8,  8,  11  - 
17) ,  the  requirement  is  checked  to  see  if  it  exceeds  the  buildup 
target.  If  it  does,  the  requirement  in  excess  of  the  buildup  target 
is  stored  in  a  local  variable  called  EXTRA  and  a  reason  code  3  'E' 
is  assigned. 


( 14)  For  the  remaining  requirement,  a  check 
is  made  to  see  if  any  funds  are  available  for  production.  This 
check  is  made  by  comparing  the  variable  TOA*  (which  is  the  remaining 
production  dollars  available  for  the  FY  being  processed)  with  the 
production  cost  of  the  item  (which  is  the  required  quantity  times 
the  item's  unit  price).  If  funds  are  not  available,  then  the 
requirement  in  excess  of  the  available  funds  is  stored  in  a  local 
variable  called  EXTRA  and  a  reason  code  3  'A'  is  assigned. 
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(15)  For  the  remaining  requirement,  &  check 
la  made  to  aee  if  the  inventory  growth  of  tha  item  is  reatricted 
through  the  uae  of  the  maximum  inventory  allowed  parameter  (MAXIA) . 
If  it  ia  reatricted,  then  the  requirement  in  exceaa  of  the  MAXIA  is 
atored  in  a  local  variable  called  EXTRA  and  a  reaaon  code  =  * K’  is 
assigned. 

(16)  Routine  WRXI.D  «•  called  in  an  attempt  to 
satisfy  the  unfilled  portion  of  the  requirement.  Since  routine 
WRKLD  ia  called  from  eight  different  places  throughout  the  model,  it 
ia  addressed  separately. 

(17)  If  the  required  item  was  scheduled  for 
production  (via  routine  WRKLD) ,  then  routine  PRICMP  ia  called  in 
order  to  schedule  production  of  primary  components.  Since  routine 
PRICMP  is  called  from  several  places  throughout  the  model,  it  ia 
also  discussed  separately. 

(16)  The  item's  unfilled  requirement,  which 
was  stored  in  the  local  variable  EXTRA,  is  now  added  back  to  the 
variable  SFALL_QTY*.  The  dollar  value  of  the  inventory  applied  is 
computed  as  the  quantity  of  inventory  applied  times  the  Item’s  unit 
price.  The  dollar  value  of  the  production  is  computed  as  the 
quantity  produced  times  the  item’s  unit  price.  The  remaining 
production  dollars  (TOAt)  are  adjusted  by  subtracting  off  the  item’s 
production  cost. 

(18)  If  the  required  item  was  either 
scheduled  for  production  or  had  Inventory  applied,  then  requirements 
for  each  of  the  item's  secondary  components  are  computed  and 
accumulated  in  an  array  called  SREQTS.  For  each  of  the  item's 
secondary  components,  the  secondary  component’s  requirements  are 
increased  by  the  quantity  of  the  end  item  produced  or  applied  out  of 
inventory,  times  a  procurement  factor. 

(20)  As  each  transaction  is  processed,  rou¬ 
tine  RFILE  is  called  in  order  to  store  the  data.  Again,  this  rou¬ 
tine  is  called  many  times  and  is  addressed  separately. 

(21)  Once  all  of  the  Army  requirements  for 
this  PDIP  are  processed,  then  the  routine  PROSEC  is  called  in  order 
to  process  the  secondary  item  requirements. 


(22)  In  PROSEC,  the  Army’s  secondary  item 
requirements  are  processed  in  the  order  that  they  are  stored  in  the 
SREQTS  array. 
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(23)  The  secondary  item's  requirement  is 
first  filled  with  assets  from  inventory  if  any  are  available. 

(24)  If  the  secondary  item's  requirement  was 
not  filled  with  assets  from  inventory,  a  check  is  made  to  see  if  any 
funds  are  available  for  production.  This  check  is  made  by  comparing 
the  variable  TOAf  (which  is  the  remaining  production  dollars 
available  for  the  FY  being  processed)  with  the  production  cost  of 
the  secondary  item  (which  is  the  required  quantity  times  the 
secondary  item's  unit  price).  If  funds  are  not  available,  then  the 
requirement  in  excess  of  the  available  funds  is  stored  in  a  local 
variable  called  EXTRA  and  a  reason  code  *  'A'  is  assigned. 

(25)  Routine  WRKLD  is  called  in  an  attempt  to 
satisfy  the  unfilled  portion  of  the  secondary  item's  requirement. 
Since  routine  WRKLD  is  called  from  eight  different  places  throughout 
the  model,  it  is  addressed  separately. 

(26)  If  the  secondary  item  was  scheduled  for 
production  (via  routine  WRKLD) ,  then  routine  PRICIIP  is  called  in 
order  to  schedule  production  of  primary  components.  Since  routine 
PRICIIP  is  called  from  several  places  throughout  the  atodel,  it  is 
also  discussed  separately. 

(27)  The  secondary  item’s  unfilled 
requirement,  which  was  stored  in  the  local  variable  EXTRA,  is  now 
added  back  to  the  variable  SFALL.QTYS.  The  dollar  value  of  the 
inventory  applied  is  computed  as  the  quantity  applied  times  its  unit 
price.  The  dollar  value  of  the  production  is  computed  as  the 
quantity  produced  times  the  unit  price.  The  remaining  production 
dollars  (TOA*)  are  adjusted  by  subtracting  off  the  item's  production 
cost. 


(28)  As  each  transaction  is  processed,  rou¬ 
tine  RFILE  is  called  in  order  to  store  the  data.  Again,  this  rou¬ 
tine  is  called  many  times  and  is  addressed  separately.  After 
processing  all  of  the  secondary  item  requirements  for  this  PDIP,  the 
operation  returns  to  routine  AREQ. 

(29)  In  AREQ,  once  the  processing  is  com¬ 
pleted  for  this  PDIP,  subroutine  RSLT1  is  called  where  the  transac¬ 
tions  are  written  to  the  RESULT1  table. 

(30)  In  routine  RSLT1,  for  each  transaction 
that  was  stored  (via  routine  RFILE)  the  data  are  retrieved  and  put 
in  local  variables.  The  ending  asset  position,  stored  in  an  array 
called  E_ASSETS,  is  adjusted  accordingly  and  inserted  into  the 
RESULT1  table.  Before  writing  the  transaction  the  following 
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computations  are  made:  the  percent  of  the  line  utilised  (PCT_LINEf) 
*  the  percent  used  times  100  (in  order  to  show  percent  as  a  whole 
number) ,  the  dollar  value  of  inventory  applied  (INV_DV*)  =  inventory 
applied  times  its  unit  price,  and  dollar  value  of  production 
(PS0D_DVf)  -  quantity  produced  times  its  unit  price.  Operation  is 
then  returned  to  routine  AREQ. 

(31)  Once  all  the  Army  requirements  are  pro¬ 
cessed  in  each  of  the  PDIPs,  the  operation  is  returned  to  MAIN. 

(k)  In  the  MAIN,  the  next  step  is  to  process  and 
write  summary  data  to  the  RESULT2  through  RESULTS  tables.  To  do 
this,  subroutine  RSLT  is  called. 

(1.)  In  routine  RSLT,  data  are  first  prepared 
for  and  written  to  the  RESULT3  table,  which  is  a  summary  of  the 
production  of  each  item  at  each  production  facility. 

(2)  For  each  item,  the  amount  produced  is 
retrieved  from  the  PRODL  array  (data  was  stored  via  routine  WRKLD) . 
The  percent  of  the  line  utilized,  the  work-years  used,  and  the 
dollar  value  of  the  production  are  computed.  The  PCT_L1NE_ARS  is 
set  equal  to  the  total  quantity  produced  for  Army  (PR0D_TATR*  ♦ 
PR0D_AD0SS)  divided  by  the  production  capacity  based  on  a  1-8-5 
shift  operation.  The  PCT_LIME_0T*  is  set  equal  to  the  quantity 
produced  for  other  customers  (PROD.OTHERf )  divided  by  the  same  1-8-5 
production  capacity.  After  the  work-years  are  computed,  these 
percent  line  values  are  multiplied  by  100  to  make  them  whole 
numbers.  The  WRXYRS.AR*  and  WRKYRS_0Tf  are  computed  by  multiplying 
their  respective  percent  line  utilized  times  the  staffing 
requirements  for  a  1-8-5  shift  operation.  The  dollar  value  of 
production  for  Army  (DV_ARMY$)  and  for  other  customers  (DV_0THERS) 
are  obtained  from  DVITMLN  where  that  data  was  stored.  These  data 
are  accumulated  in  the  SUMRY0  array  which  will  be  used  to  write  the 
RESULT0  table.  Data  are  then  Inserted  into  the  RESULT3  table. 

(3)  Data  are  now  prepared  for  and  written  to 
the  RESULT4  table,  which  is  a  summary  of  each  item,  showing  mainly 
the  Item's  ending  asset  position  and  the  unfilled  requirements. 
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(4)  For  each  item,  data  are  retrieved  from 
the  E_ASSETS ,  INV_USED , ~TOT_OC ,  T0T_ARMY,  and  SHORT  arrays.  The 
percent  of  the  item's  requirement  that  was  satisfied  is  computed  as 
100  times  (1.  -  shortfall  quantity/required  quantity);  this  was  done 
for  each  of  the  three  categories:  other  customers,  Army  test  and 
training,  and  Army  days-of-supply  The  total  produced  for  the  Army 
is  set  equal  to  the  sum  of  what  was  produced  for  Army  test  and 
training  and  Army  days-of-supply.  These  data  are  then  inserted  into 
the  RESULT4  table. 

(5)  Data  are  now  prepared  for  and  written  to 
the  RESULTS  table,  which  is  a  summary,  by  each  plant,  of  the  work- 
years  and  dollars  scheduled  for  each  service  and  for  each  of  the 
Army's  PDIPs. 


(6)  For  each  plant  and  for  each  of  the  Army’s 
PDIPs,  data  are  retrieved  from  the  SMRY5A  array.  The  data  for  the 
prior  year  undelivered  production  are  assigned  package  level  zero. 
The  data  are  then  inserted  into  the  RESULT5  table. 

(7)  Then  for  each  plant  and  for  each  service, 
data  are  returned  from  the  SMRY5B  array  and  inserted  into  the 
BESULT5  table. 


(8)  Data  are  now  prepared  for  and  written  to 
the  RESULTS  table,  which  is  a  summary  of  the  production  activity  on 
each  line  at  each  plant. 

(9)  For  each  line  at  each  plant,  data  are 
retrieved  from  the  array  called  SUMRY6  and  Inserted  into  the  RESULTS 
table.  Operation  is  then  returned  to  the  MAIN. 

(l)  The  program  ends  when  all  processing  has  been 
completed  for  each  of  the  FYs. 

(m)  Subroutine  WRKLD  is  called  from  many  places 
throughout  the  model  and  is  documented  here.  Subroutine  WRKLD  is 
given  a  requirement  for  an  item,  and  its  intended  purpose  is  to 
schedule  production  of  that  item  at  some  production  location. 

(1)  For  each  production  location,  the  remain¬ 
ing  percent  of  the  line  and  the  remaining  available  staff  is 
checked.  If  none  are  available,  the  next  production  location  is 
selected. 


} 


ADSM  18-L82-LAT-ZZZ-MM-2604 
30  November  1087 


(2)  If  an  Army  requirement  ia  being  pro* 
ceaaed,  the  maximum  production  allowed  (MAXPA)  conatraint  ia  checked 
to  aee  if  production  ia  reatricted.  If  ao,  then  the  requirement  in 
exceaa  of  the  MAXPA  ia  atored  in  a  local  variable  called  EXTRA  and  a 
reaaon  code  *  *J’  la  aaaigned. 

(3)  The  unacheduled  plant  ataff  which  could 
be  available  to  produce  the  item  aa  well  aa  the  ataff  required  to 
aupport  the  unacheduled  portion  of  ahift  1  and  2  of  the  line  ia 
computed.  The  unacheduled  plant  ataff  ia  equal  to  the  plant  ataff 
time*  the  remaining  percent  of  that  ataff  which  haa  not  been 
workloaded.  The  ataff  required  to  aupport  the  unacheduled  portiona 
of  ahift  1  and  2  for  that  item  are  computed  aa  the  required  ataff  to 
aupport  the  production  line  timea  the  remaining  percent  of  the  line 
which  haa  not  been  acheduled.  Thia  ia  done  aeparately  for  each 
ahift,  and  will  indicate  if  there  ia  a  poaaible  ataff  conatraint. 

Baaed  on  theae  data,  a  ratio  la  determined  for  each  ahift  (R1  and 
R2) ,  indicating  the  portion  of  each  ahift  which  ia  available  for 
uae.  Then  the  unconatrained  production  for  the  firat  and  aecond 
ahifta  (DPI  and  UP2)  are  computed  by  multiplying  the  production 
capacity  for  that  item  by  the  remaining  percent  of  the  line  which 
haa  not  been  acheduled.  Finally,  the  conatrained  production  for 
each  ahift  (CPI  and  CP2)  are  computed  by  multiplying  the  uncon¬ 
atrained  production  (DPI  and  DP2)  by  the  appropriate  ratioa  (R1  and 
R2) .  The  unconatrained  production  for  the  firat  and  aecond  ahifta 
are  computed,  after  which  the  conatrained  production  ia  computed. 

(4)  If  the  required  amount  ia  leaa  than  the 
conatrained  production,  the  item  ia  acheduled  on  that  line.  How¬ 
ever,  if  only  a  portion  ia  aoheduled  then  it  ia  determined  if  the 
ahortfall  waa  due  to  a  ataff ing  conatraint  or  a  production  capacity 
conatraint,  and  a  reaaon  code  of  'C'  or  ’B’  ia  aaaigned,  reapectively . 

(5)  If  the  item  waa  acheduled  for  production, 
then  the  percentagea  of  the  line  and  the  plant  ataff  atill  available 
are  recomputed.  If  the  amount  acheduled  for  production  (AMTJPROD) 
ia  leaa  than  CPI,  adjuatmenta  are  made  to  the  remaining  percent  of 
line  (RPCT_LIVE)  by  aubtracting  the  percent  of  the  firat  ahift  uaed 
to  produce  AMT.PROD,  and  the  remaining  percent  of  ataff  available  by 
aubtracting  the  percent  of  the  ataff  uaed  to  aupport  the  production 
quantity  Atfr_PR0D.  If  the  amount  produced  (Aifr_PR0D)  la  greater 
than  CPI,  then  aimilar  adjuatmenta  muat  be  made  for  both  ahifta. 

(8)  Data  are  accumulated  for  the  RESDLT5 
table  by  atoring  information  in  arraya  called  SMBY5A  and  SMRY5B. 

Rote  that  the  dollar  valuea  accumulated  are  calculated  by 
multiplying  the  amount  produced  by  the  item'a  unit  price. 
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(7)  Data  ara  also  accumulated  for  the  RESULTS 
and  4  tables  by  storing  it  In  the  arrays  called  PRODL,  DVITMLN,  and 
PROD. 

(8)  If  the  item  being  processed  is  a  prior 
year  undelivered  item,  the  operation  is  now  returned  to  subroutine 
UPDATE . 

(9)  If  the  item's  requirement  is  still 
unfilled,  the  next  production  location  for  this  item  is  considered. 
After  all  production  locations  have  been  tried  or  if  the  requirement 
has  been  filled,  the  operation  is  returned  to  the  location  in  the 
model  which  called  this  subroutine. 

(n)  Subroutine  PRICMP  is  called  from  many  places 
throughout  the  model  and  is  documented  here.  Subroutine  PRICMP  is 
given  the  amount  produced  for  an  item  and  its  intended  purpose  is  to 
select  the  primary  components  for  the  required  item,  compute  the 
component’s  requirement,  and  pass  those  requirements  to  subroutine 
PRCOMP.  This  is  done  for  the  item's  primary  components  as  well  as 
for  the  primary  subcomponents. 

U)  Each  time  a  primary  component  is  selected 
and  its  requirement  is  computed,  that  information  is  passed  to 
subroutine  PRCOMP. 

(2)  In  PRCOMP,  the  primary  component’s  re¬ 
quirement  is  first  filled  with  assets  from  inventory  if  any  are 
available. 

(3)  If  the  primary  component’s  requirement 
was  not  filled  with  assets  from  inventory,  then  routine  WRKLD  is 
called  in  an  attempt  to  satisfy  the  unfilled  portion  of  the  require¬ 
ment.  Since  routine  WRKLD  is  called  from  many  places  throughout  the 
model,  it  is  addressed  separately. 

(4)  If  the  primary  component  still  has 
unfilled  requirements,  it  is  designated  a  'pacer*  which  will 
restrict  the  production  of  all  items  which  use  it  as  a  primary 
component.  All  items  associated  with  a  pacer  are  assigned  a  reason 
code  3  'D'  so  that  the  next  time  those  items  are  processed  with 
requirements,  a  shortfall  record  would  automatically  be  written. 

(5)  As  eaoh  transaction  is  processed,  routine 
RFILI  is  called  in  order  to  store  the  data.  Again,  this  routine  is 
called  many  times  throughout  the  model  and  is  addressed  separately. 
After  processing  the  primary  component,  the  operation  returns  to  the 
routine  PRICMP. 
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(6)  If  any  of  the  primary  components  for  the 
required  Item  were  pacing  components,  then  the  already  scheduled 
production  of  the  required  Item  must  be  decreased,  as  well  as  all 
the  internal  arrays  in  the  model  which  are  impacted  by  this 
decrease.  If  there  were  no  pacers,  operation  returns  to  the  loca¬ 
tion  in  the  model  which  called  this  routine. 

(7)  If  there  was  a  pacing  component,  then  the 
variable  SFALL_END  contains  the  quantity  which  must  be  subtracted 
from  the  end  items  production  quantity.  The  following  adjustments 
are  made  to  the  end  item:  production  (PR0D_APPS)  is  decreased  by 
SFALL_END,  while  the  item’s  shortfall  quantity  (8FALL_QTYS)  is 
increased  by  the  same  amount.  The  work-years  are  adjusted  by 
multiplying  work-years  by  the  ratio  of  the  adjusted  production 
quantity  to  the  original  production  quantity.  The  percent  line  is 
adjusted  in  the  same  manner.  Arrays  containing  production  data  are 
adjusted  by  subtracting  the  value  of  SFALL_END.  Since  many  arrays 
keep  values  by  item/line  combinations,  a  variable  called  ADJUSTMENT 
is  computed.  ADJUSTMENT  equals  SFALL_END  if  the  amount  produced  on 
that  line  is  large  enough  to  cover  SFALL_QTY,  else  ADJUSTMENT  is 
equal  to  the  quantity  produced  on  that  line. 

(8)  Based  on  the  variable  ADJUSTMENT.  SMRY5A 
and  SMRY5B  arrays  are  modified;  the  dollar  value  of  production  is 
decreased  by  the  product  of  ADJUSTMENT  and  unit  price,  while  the 
work-years  are  decreased  by  the  product  of  staff  requirements  and 
the  ratio  of  ADJUSTMENT  to  the  production  capacity  of  the  1-8-5 
shift  operation.  The  remaining  percent  of  staff  is  increased  by  the 
product  of  the  staff  requirements  for  that  line  and  the  ratio  of 
ADJUSTMENT  to  the  production  capacity  of  the  1-8-5  shift  operation. 
After  completing  the  adjustments,  operation  returns  to  the  location 
in  the  model  which  called  this  routine. 

(o)  Subroutine  HFILE  is  called  from  many  places 
throughout  the  model  and  is  documented  here.  Subroutine  BFILE  is 
given  the  data  for  each  transaction  for  the  purpose  of  storing  it  in 
Internal  arrays.  Later  on  these  data  will  be  retrieved  and  written 
to  the  RESULT 1  and  BESULT2  tables. 

(H  A  printer  array  called  ARY_PTB  is  used  as 
an  entry  point  into  the  storage  arrays  for  each  item.  When  a  trans¬ 
action  is  given  to  subroutine  BFILE,  the  ARY_PTR  array  is  checked  to 
see  if  that  item  had  a  previous  transaction.  If  that  transaction 
was  for  the  same  item  and  for  the  same  service,  then  the  previous 
transaction  is  updated.  Otherwise,  the  new  transaction  is  addeu  to 
the  storage  arrays. 
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(2)  After  the  transaction  is  stored,  the 
operation  returns  to  the  point  in  the  model  which  called  routine 


EFILE. 


5.33.2  Conditions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 
'S'  character  added. 

5.33.3  Verification  Procedures.  The  program  can  be  verified  by 
analyzing  some  of  the  output  (use  the  report  generators  to  obtain 
the  reports  via  access  through  the  PJSM  Main  Menu).  In  addition, 
one  could  spot  check  some  of  the  output  against  values  manually 
retrieved  from  the  data  base  using  the  ORACLE  UFI. 

5.33.4  Error  Conditions.  Any  error  messages  will  be  printed  to  the 
file  called  MODEL. COMO,  found  in  SAXJSM>*0UT. 

5.33.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPQM>»PS . 

A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.34  Program.  Plant  Job  Scheduling  Model  Post  Processor  (JSMPP) 

5.34.1  Program  Description.  JSMPP  is  an  acronym  for  the  Job 
Scheduling  Model  Post  Processor.  The  JSMPP  program  is  written  in 
structured  FORTRAN  77  with  embedded  SQL  statements.  It  is  used  to 
modify  the  output  of  the  PJSM. 

a.  Identification  -  The  source  code  for  JSMPP  is  in  five 
source  files  --  JSMPP. FOR,  CUTBAK . F77 ,  CUTCMP.F77 ,  PLUSUP.F77,  and 
PLSCMP.F77.  JSMPP. FOR  must  be  precompiled  using  the  ORACLE  FORTRAN 
Host  Language  Precompiler  (PCC)  which  replaces  the  embedded  SQL 
statements  with  calls  to  library  routines.  The  output  of  the  pre¬ 
compiler  is  an  intermediate  file  --  JSMPP. F77 .  The  other  F77 
source  files  do  not  contain  embedded  SQL  statements,  thus,  these 
files  do  not  need  to  be  precompiled.  The  F77  source  files  are 
compiled  with  the  PRIME  F77  compiler.  The  PRIME  BIND  linker  utility 
is  used  to  produce  an  executable  run  module  --  JSMPP. RUN.  A  Com¬ 
mand  Procedure  Language  (CPL)  procedure  --  BIND3IX.CPL  --  is  avail¬ 
able  which  precompiles,  compiles,  links,  and  runs  the  program.  This 
procedure  automatically  recompiles  any  of  the  source  files  that  have 
been  modified  and  relinks  the  program.  If  none  of  the  source  files 
were  modified  since  the  program  was  last  linked,  BIND3IX.CPL  just 
runs  the  program.  The  five  source  files  contain  a  total  of  35 
subroutines  as  shown  in  the  following  table: 

SOURCE  FILE/SUBBOUTINE  CROSS  REFERENCE  TABLE 


JSMPP .FOR  CUTBAK .F77  CUTCMP.F77  PLUSUP.F77  PLSCMP.F77 


MAIN 

INPUT 

RESULT  1 

RESULT3 

RESULT4 

RESULT5 

RESULT6 

R1UPDT 

R3UPDT 

R4UPDT 

R5UPDT 

R8UPDT 


CUTBK1 

CUTINV 

CUTBK3 

CUTBK4 

CUTBK5 

CUTBK6 

BLIST 

SLIST 

SLIST 


CUTCP1 

CUTCP3 

CUTCP4 

CUTCP5 

CUTCP0 


PLSUP1 

PLSINV 

PLSUP3 

PLSUP4 

PLSUP5 

PLSUP6 


PLSCMP 

CHECKP 

CHGCMP 


b.  Functions  -  The  JSMPP  is  used  to  allow  changes  to  be 
made  to  the  Army  production  schedules  produced  by  the  PJSM.  The 
JSMPP  essentially  reads  tentative  end  item  production  or  dollar 
value  changes  that  the  user  has  entered  into  the  PJSM  RESULT4  table, 
determines  which  changes  are  valid,  and  makes  the  appropriate  end 
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item  and  corresponding  component  changes  in  the  PJSM  result  tables 
--  RESULT  1,  RESULT3 ,  RESULT4 ,  RESULT5 .  and  RESULT6 .  The  program 
runs  the  same  way  regardless  of  how  the  tentative  changes  were 
entered  into  the  RESULT4  table.  They  can  be  entered  with  the  Change 
Screen  (see  paragraph  5.57),  with  a  FORTRAN  program,  or  by  the 
ORACLE  SQLPLUS  commands . 

c.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 
password,  and  a  RCN.  These  are  entered  on  a  command  line  like  this: 

R  JSIIPP  USER  PSWD  RCN;  e.g.,  R  JSMPP  TRIER  xxx  30.  All  other  data 
elements  are  obtained  from  the  PJSM  data  base.  The  RCN  i3  used  to 
restrict  the  rows  that  are  accessed.  When  reading  STAFF,  GOALS, 
PFSTAB,  PRODT_FY,  and  ITEM_DATA  tables,  the  default  values  are  read 
in  first.  These  are  the  rows  where  RCN  =  0.  Then,  any  rows  where 
the  RCN  matches  the  RCN  on  the  command  line  are  retrieved,  and  the 
data  elements  from  these  rows  override  or  augment  the  default 
values.  In  REVTAB,  TREQ ,  and  all  RESULT  tables,  only  the  row(s) 
where  the  RCN  matches  the  one  on  the  command  line  are  ever  accessed. 
The  columns  that  are  accessed  are  as  follows: 

(1)  From  REVTAB:  Beginning  FY  (BFY) ,  number  of  FYs , 
level  of  training,  and  depot  training  requirement.  BFY  is  used  to 
make  sure  that  whenever  FY  is  selected  from  any  table,  only  those 
rows  where  FY  is  in  the  5  year  range  (BFY  to  BFY+4)  are  accessed. 

(2)  From  STAFF:  Plant,  FY,  and  the  number  of  direct 
labor  employees. 

(3)  From  GOALS:  The  TOA  for  hardware  for  each  year  of 
the  POM  period. 

(4)  From  PFSTAB:  Package  levels  and  the  sequence  in 
which  they  are  funded. 

(5)  From  ICT:  A  list  of  end  items,  their  primary  compo¬ 
nents,  and  the  procurement  factors.  Only  rows  where  type  =  'P'  are 
retrieved . 

(6)  From  PRODT:  DODIC,  plant,  line,  the  1-8-5  and  2-8-5 
production  rates,  1-8-5  and  2-8-5  direct  labor  staffing,  and  line 
avai labi 1 ity . 

(7)  From  PR0DT_FY:  The  same  information  as  the  PRODT 
table  plus  FY.  Any  data  in  PR0DT_FY  for  a  particular  RCN  overrides 
the  same  data  from  the  PRODT  table. 
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(8)  From  ITEM_DATA :  DODIC,  FY,  RCN ,  unit  price, 
priority,  draw  down  and  build  up  targets  in  DOS,  and  the  maximum 
inventory  allowed. 

(9)  From  TREQ :  DODIC,  FY ,  draw  down  quantity,  and  the 
build  up  quantity. 

(10)  From  RESULT1:  DODIC,  FY,  package  level,  type, 
pacer,  inventory  applied,  inventory  dollar  value,  production 
applied,  production  dollar  value,  work-years  used,  percent  of  line 
capacity  used,  shortfall  quantity,  and  reason  code.  Rows  where 
package  level  is  less  than  1  are  not  selected. 

(11)  From  RESULT3:  DODIC,  plant,  line,  FY,  type,  other 
service  production,  Army  production  for  test  and  training,  Army  pro¬ 
duction  for  DOS,  dollar  value  of  Army  production,  work-years  used 
for  Army  production,  percent  of  line  capacity  used  for  Army  produc¬ 
tion,  dollar  value  of  other  service  production,  work-years  used  for 
other  service  production,  and  percent  of  line  capacity  used  for 
other  service  production. 

(12)  From  RESULT4 :  DODIC,  FY ,  type,  inventory  used  for 
test  and  training,  inventory  used  for  DOS,  ending  assets,  percent  of 
the  test  and  training  requirement  filled,  percent  of  the  DOS  require¬ 
ment  filled,  test  and  training  shortfall,  DOS  shortfall,  total  Army 
production,  dollar  value  of  Army  prpduction,  production  change, 
dollar  value  change,  and  cumulative  change.  Only  rows  where  type  is 
’E’,  'S’,  or  ’ P ’  are  selected. 

(13)  From  RESULT5 :  FY,  plant,  package  level,  service 
code,  dollar  value  of  production,  and  work-years  used.  Only  rows 
where  PKGL  >  0  and  service  =  ’AR’  are  retrieved. 

(14)  From  RESULT6:  FY,  plant,  line,  dollar  value  of 
production,  work-years  used,  and  percent  of  line  capacity  used. 

d.  Processing  -  This  section  is  sub-divided  into  an  overview 
section  and  a  detailed  walk  through  the  Post  Processor. 

(1)  Overview  -  The  following  is  a  brief  overview  of  the 
Production  Scheduling  Post  Processor: 

(a)  All  required  data  elements  listed  in  5.34.1c 
through  5.34.1c(14)  are  read  from  the  PJSM  input  and  result  tables. 
These  data  elements  are  loaded  into  several  arrays  and  dynamic  data 
structures.  Each  data  structure  consists  of  an  index  array  and  one 
or  more  data  arrays.  Each  index  entry  consists  of  one  or  more  data 
elements  that  form  a  unique  concatenated  key  and  a  pointer  to  the 
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columns  in  the  data  arrays  where  other  data  elements  are  stored. 
Each  data  array  has  five  rows  --  one  for  each  fiscal  year  in  the 
POM.  A  typical  data  structure  is  depicted  by  the  following  illus¬ 
tration  : 


D563  E  2  3  - + 

D563  E  3  7  ! 


1  2  3 

4  . 

lilt 

+ - + - + - + 

- + 

Pointer 

BFY 

45:  45:  47: 

52: 

!  !  +--  Seq 

.  No. 

BFY+1 

ioo :  93:  91: 

CD 

<0 

1  Type 

BFY+2 

100:  96:  95: 

96  i 

+--  DODIC 

BFY+3 

99:  97!  98: 

99: 

BFY+4 

100:100:  96: 

951 

+ - + - + - + 

- + 

Index  Array 

Data  Array 

(b)  The  items  that  are  being  decreased  are  pro¬ 
cessed  first  to  free  up  funds  and  production  capacity  which  may  be 
needed  for  the  items  that  will  be  increased.  For  each  item  that  is 
being  decreased,  the  following  steps  are  performed; 

(1_)  The  RESULT1  data  structure  ir  searched  in 
reverse  package  funding  sequence  order  for  the  lowest  ■r'ority 
package  level  that  has  production  applied.  If  more  than  one  package 
level  is  needed,  the  program  will  reduce  production  applied  to  zero 
for  the  current  package  level  before  going  to  the  next  one. 

(2)  The  plant/line  combination  is  determined 
by  making  a  three  way  match  in  the  RESULT1 ,  RESULT3 ,  and  RESULT5 
data  structures.  The  DODIC  must  match  in  RESULT1  and  RESULT3  data; 
the  plant  must  match  in  RESULTS  and  RESULT5  data;  and  the  package 
level  must  match  in  RESULT1  and  RESULT5  data.  Failure  to  obtain 
this  match  indicates  a  discrepancy  in  the  result  tables,  and  the 
Post  Processor  does  not  attempt  to  resolve  it.  If  the  entire  change 
cannot  be  accommodated  by  the  first  plant,  the  program  will  look  for 
additional  plants. 


(3)  All  RESULT  data  structures  are  checked  for 
consistent  production  applied  and  associated  dollar  values.  If 
there  are  any  discrepancies,  the  package  level  change  is  reduced  to 
prevent  production  applied  or  dollar  value  from  going  negative  in 
any  of  the  data  structures. 

(4)  The  appropriate  changes  are  made  in  the 
result  data  structures  for  both  end  items  and  their  primary  compo¬ 
nents.  Each  of  these  data  structures  contains  a  flags  array  for 
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keeping  track  of  the  data  items  that  have  changed.  The  appropriate 
flags  are  set  whenever  one  or  more  of  the  corresponding  data  ele¬ 
ments  is  changed. 

(c)  Production  increases  for  individual  items  is 
more  involved  than  decreases  because  there  are  more  constraints.  A 
primary  component  could  be  a  pacer.  Additionally,  the  Post  Proces¬ 
sor  considers  the  following  to  be  constraints  that  cannot  be  exceeded 

(1)  TOA  dollar  cap. 

(2)  Build  up  target. 

(3)  Maximum  direct  labor  at  a  plant. 

(4)  Line  capacity. 

(d)  For  each  item  that  is  being  increased  the 
following  steps  are  performed: 

U)  The  RESULT1  data  structure  is  searched  in 
package  funding  sequence  order  for  the  highest  priority  package 
level  that  has  a  shortfall.  If  more  than  one  package  level  is 
needed,  the  program  will  reduce  the  shortfall  to  zero  for  the  cur- 
rent  package  level  before  going  to  the  next  one. 

(2)  All  available  plant/line  combinations  that 
are  not  already  in  the  RESULT3  data  structure  are  added. 

(3)  If  there  is  no  entry  in  the  RESULT5  data 
structure  for  the  plant  and  package  level,  a  new  entry  is  added. 

(4)  All  constraints  on  the  end  item  production 
increase  are  tested,  and  the  increase  is  cut  back  if  necessary. 

(5)  The  program  loops  through  all  primary 
components  to  determine  associated  component  changes,  using  the 
appropriate  procurement  factors  and  checks  the  constraints.  If  any 
of  the  components  is  determined  to  be  a  pacer,  the  end  item  increase 
is  restricted  accordingly. 

(6)  The  result  data  structures  are  updated  the 
same  way  as  for  decreases. 

(e)  After  all  changes  have  been  internally  pro¬ 
cessed,  the  program  searches  through  the  all  of  the  result  flags 
arrays  to  determine  which  rows  in  the  PJSM  result  tables  need  to  be 
updated  or  inserted.  Existing  rows  in  the  PJSM  tables  are  updated 
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by  setting  selected  columns  equal  to  the  the  latest  value  from  the 
corresponding  data  elements  in  the  data  structures.  If  new  rows 
have  to  be  inserted,  zero  is  inserted  into  all  columns  related  to 
other  services. 

(2)  Detailed  Walk  Through  -  This  section  provides  a  more 
detailed  description  of  Post  Processor  structure,  functions,  and 
control  logic: 


(a)  The  Post  Processor  gets  all  the  information  it 
needs  before  any  processing  is  done.  Each  data  element  is  read  only 
once  from  the  PJSM  data  base  regardless  of  how  many  times  it  is  used 
in  the  program.  Data  input  is  accomplished  in  the  following  steps; 

U)  The  ORACLE  user  name  and  password,  and 
RCN  are  obtained  from  the  command  line. 

(2)  In  the  main  program,  the  beginning  FY, 
number  of  FYs ,  level  of  training  requirements,  and  the  depot  train¬ 
ing  requirement  are  retrieved  from  the  REVTAB  table  for  the  appro¬ 
priate  RCN. 


(3)  In  subroutine  INPUT,  the  columns  listed  in 
5.34. 1c ( 2)  through  5.34. lc (9)  are  retrieved  from  PJSM  STAFF,  GOALS, 
PFSTAB ,  ICT,  PRODT ,  PRODT_FY,  ITEM_DATA ,  and  TREQ  tables.  The  data 
elements  are  loaded  into  arrays  and  data  structures. 

(4)  Subroutine  RESULT4  reads  all  rows  and  the 
columns  listed  in  5.34.1c (12)  from  the  PJSM  RESULT4  table  for  the 
appropriate  RCN.  Only  rows  where  type  =  ’E’  or  'S’  are  retrieved. 
The  dollars  value  of  Army  production  are  summed  to  provide  a  total 
for  comparison  with  the  TOA  constraint.  The  PR0D_CHG  and  DV_CHG 
columns  are  checked  for  non-zero  entries.  If  the  PR0D_CHG  column  is 
non-zero  but  the  DV_CHG  is  zero,  the  correct  DV_CHG  is  computed 
using  the  appropriate  unit  price.  Likewise,  a  DV_CHG  could  be 
entered,  and  the  corresponding  PR0D_CHG  computed.  Data  elements  for 
items  subject  to  change,  in  one  or  more  years,  are  loaded  into  the 
RESULT4  data  structure.  A  second  pass  is  made  through  the  RESULT4 
table  to  pick  up  the  primary  components.  If  a  primary  component  is 
a  component  for  one  or  more  of  the  end  items  already  in  the  RESULT4 
data  structure,  the  data  elements  for  the  component  are  also  added 
to  the  RESULT4  data  structure.  The  RESULT4  data  structure  consists 
of  several  data  arrays  --  R4PR0D_TATR,  R4PR0D_AD0S,  R4AINV_TATR, 
R4AINV_ADOS ,  R4SFALL_TATR ,  R4SFALL_AD0S ,  R4PR0D_ARMY,  R4DV  ARMY, 

R4E_ ASSETS,  R4PR0D_CHG,  R4DV_CHG,  R4CUM_CHG,  R4PFILL_TATR , 
R4PFILL_AD0S ,  and  an  index  array.  Each  index  entry  consists  of  a 
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DODIC  and  a  pointer  to  the  columns  in  the  data  arrays  where  other 
data  elements  are  stored.  Each  data  array  has  five  rows,  one  for 
each  FY  in  the  POM  cycle. 

(5)  Subroutine  RESULT1  reads  all  rows  from  the 
PJSM  RESULT1  table  for  the  appropriate  RCN  and  checks  for  end  item 
and  component  DODICs  which  have  been  entered  into  the  RESULT4  index 
array.  Data  elements  listed  in  5.34.1c(10)  for  the  items  subject  to 
change  are  loaded  into  the  RESULT1  data  structure.  Each  element  in 
the  RESULT1  index  array  consists  of  a  DODIC,  type,  and  a  SCN  where 
SCN  =  SEQ(PKGLS)  to  access  the  data  in  package  funding  sequence 
order  or  SCN  =  18  -  SEQ(PKQLt)  to  reverse  the  package  funding 
sequence  order.  An  array  --  PKGL  —  is  used  to  convert  the  SCN  back 
to  the  package  level;  e.g.,  PKGL4  =  PKGL (SCN) .  The  index  array  is 
initially  built  in  reverse  package  funding  sequence  order  because 
production  decreases  are  processed  first  and  package  levels  must  be 
backed  out  in  reverse  order. 

(6)  Subroutine  RESULT3  reads  all  rows  from  the 
PJSM  RESULT3  table  for  the  appropriate  RCN  and  checks  for  end  item 
and  component  DODICs  which  have  been  entered  into  the  RESULT4  index 
array.  The  data  elements  listed  in  5.34.  lc(ll)  into  the  RESULTS 
data  structure  for  the  items  that  are  subject  to  change.  Also,  the 
total  production  for  test  and  training  (R4PROD_TATR)  and  days  of 
supply  (R4PR0D_AD0S)  are  updated  in  the  RESULT4  data  structure. 

These  totals  are  accumulated  here  because  there  are  no  PROD  TATR  or 
PR0D_AD0S  columns  in  the  RESULT 4  table. 

(7)  Subroutine  RESULT5  reads  all  rows  and 
columns  listed  in  5.34.1c (131  from  PJSM  RESULTS  table  for  the  appro¬ 
priate  RCN  and  loads  the  data  elements  into  the  RESULT5  data  struc¬ 
ture  . 

(8)  Subroutine  RESULT6  reads  all  rows  and 
columns  listed  in  5.34.1c(14)  from  PJSM  RESULT6  table  for  the  appro¬ 
priate  RCN  and  loads  the  data  elements  into  the  RESULT6  data  struc¬ 
ture  . 

(b)  After  all  input  and  result  tables  have  been 
read,  control  returns  to  subroutine  MAIN  and  the  program  discon¬ 
nects  from  the  ORACLE  system.  The  arrays  and  data  structures 
contain  all  the  required  data  elements,  and  they  are  several  orders 
of  magnitude  more  accessible  than  the  corresponding  ORACLE  tables; 
thus,  the  program  processes  all  the  changes  internally  without 
interfacing  with  the  ORACLE  system.  Production  decreases  are  pro¬ 
cessed  first  to  free  up  funds  and  production  capacity  that  may  be 
needed  later  for  increases.  Items  are  processed  in  the  priority 
order  assigned  by  the  DCSOPS .  Because  these  priorities  can  change 
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with  FY,  each  year  is  processed  separately.  This  is  accomplished  by 
building  a  temporary  end  item  index  array  that  contains  just  those 
items  that  are  subject  to  change  in  a  given  FY.  Each  element  in 
this  index  array  consists  of  the  priority,  DODIC,  type,  and  a 
pointer  into  the  RESULT4  data  structure.  Each  DODIC  in  the  RESULT4 
data  structure  where  PR0D_CHG  is  negative  in  a  given  FY  is  loaded 
into  the  end  item  index  array.  The  priority  of  each  item  is 
obtained  from  the  ITEM_DATA  data  structure.  The  type  and  the 
pointer  are  copied  from  the  RESULT4  index  array.  The  end  item  index 
array  is  sorted  by  priority,  DODIC,  and  type  so  the  items  will  be 
processed  in  this  order.  The  production  decreases  for  each  item  in 
the  end  item  index  array  are  then  processed  as  follows: 

(1_)  Subroutine  CUTBK1  determines  which  package 
level (s)  will  be  reduced  or  eliminated  completely.  This  is  done  by 
looping  through  the  RESULT1  data  structure  in  reverse  package  fund¬ 
ing  sequence  order  to  find  the  lowest  priority  package  level  that 
has  production  applied.  If  there  is  not  enough  production  in  a 
package,  it  is  reduced  to  zero  before  going  to  the  next  lowest 
priority  package  level.  The  package  level  loops  until  either  the 
reduction  passed  from  MAIN  has  been  fully  accommodated  or  the  pack¬ 
age  levels  are  exhausted.  For  each  package  level,  the  following 
steps  are  performed: 

la)  The  production  change  in  the  package 
(P_CHG_PKL)  is  determined.  This  is  the  smaller  of  the  production 
applied  in  the  RESULT1  data  structure  or  the  amount  still  needed  to 
complete  the  tentative  change  passed  from  MAIN. 

(b)  The  package  level  change  is  passed  to 
subroutine  CUTBK3  to  check  for  compatible  production  and  associated 
dollar  values  in  the  other  RESULT  data  structures  and  to  process  the 
changes  in  the  RESULT3  data  structure. 

(c)  The  production  applied,  shortfall,  and 
the  dollar  value  of  the  production  are  updated  in  the  RESULT1  data 
structure . 

(d)  If  the  package  level  is  for  DOS, 

CUTINV  is  called  to  reduce  the  inventory  that  can  be  applied  in  the 
following  years. 

(e)  Subroutine  CUTCP1  is  called  to  pro¬ 
cess  the  corresponding  primary  component  production  decreases. 

(2)  In  subroutine  CUTBK3  one  or  more  plant/ 
line  combinations  are  determined  by  looping  through  the  combinations 
in  the  RESULT3  index  array.  For  each  plant  from  the  RESULTS  index, 
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the  RESULT5  index  array  is  checked  to  determine  if  there  is  a 
matching  plant  and  package  level.  Depending  on  the  package  level,  a 
check  is  made  on  either  test  and  training  or  DOS  production  applied 
in  the  RESULT3  data  structure  to  determine  if  it  is  compatable  with 
the  value  passed  from  CUTBK1.  CUTBK3  then  calls  CUTBK4,  CUTBK5 ,  and 
CUTBK6  to  make  compatability  checks  in  the  RESULT4,  RESULT5,  and 
RESULT6  data  structures  respectively.  Finally,  the  changes  in  the 
production  applied  for  test  and  training  or  days  of  supply,  the 
dollar  value  of  Army  production,  work-years  for  Army  production,  and 
percent  line  utilization  for  Army  production  are  made  in  the  RESULT3 
data  structure.  The  plant/line  loop  continues  until  either  the 
package  level  change  is  fully  accommodated  or  the  plant/line  combin¬ 
ations  in  the  RESULT3  index  array  are  exhausted. 

(3)  Subroutine  CUTBK4  determines  if  the  appro¬ 
priate  test  and  training  or  DOS  production  applied  is  at  least  as 
large  as  the  change  passed  from  CUTBK3.  After  additional  data 
checking  in  subroutines  CUTBK5  and  CUTBK6,  CUTBK4  is  called  a  second 
time  to  make  the  appropriate  changes  to  the  production  applied  and 
shortfall  for  test  and  training  or  days  of  supply,  ending  assets, 
percent  of  requirement  filled,  total  Army  production,  production 
change,  cumulative  change,  and  dollar  value  of  Army  production  in 
the  RESULT 4  data  structure. 

(4)  Subroutine  CUTBK5  checks  the  RESULT5  data 
structure  to  determine  if  there  is  sufficient  dollar  value  of  pro¬ 
duction  for  the  plant  and  package  level.  After  additional  compat¬ 
ability  checking  in  subroutine  CUTBK6,  CUTBK5  is  called  a  second 
time  to  update  the  dollar  value  of  production  and  the  work-years 
used  in  the  RESULT5  data  structure. 

(5)  Subroutine  CUTBK6  checks  the  dollar  value 
of  production  in  the  RESULT6  data  structure  for  the  plant  and  line 
passed  from  CUTBK3.  CUTBK6  is  called  a  second  time  to  update  the 
dollar  value  of  production,  work-years  used,  and  the  percent  line 
used  in  the  RESULT6  data  structure. 

(6)  Subroutine  CUTINV  is  called  from  CUTBK1  if 
the  package  level  is  for  DOS.  CUTINV  reduces,  if  possible,  the 
inventory  applied  in  the  years  following  the  current  year  being 
processed.  For  each  of  the  following  years,  CUTINV  searches  through 
the  RESULT1  data  structure  for  package  levels  that  have  inventory 
applied.  The  inventory  applied  is  then  reduced  and  the  shortfall  is 
increased  in  both  the  RESULT1  and  RESULT4  data  structures.  The 
package  levels  where  the  inventory  applied  is  reduced  will  not 
necessarily  be  the  same  as  the  package  levels  where  production  was 
decreased  in  a  previous  year.  Also,  the  ending  assets,  and  the 
percent  of  the  test  and  training  and  days  of  supply  requirements 
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filled  are  updated  in  the  RESULT4  data  structure.  Inventory  reduc¬ 
tions  in  test  and  training  packages  are  not  carried  over  to  the  next 
year . 

(7)  Subroutine  CUTCP1  determines  which  compo¬ 
nents  must  be  processed  by  searching  the  item/component  array.  The 
component  change  quantities  are  determined  by  the  end  item  change 
and  the  procurement  factor  for  each  component.  If  there  is  not 
enough  component  production  to  reduce,  the  inventory  applied  is 
reduced.  The  package  level  is  determined  by  the  associated  end 
item.  The  same  data  elements  are  affected  as  when  reducing  end  item 
production,  except  no  dollar  values  are  attached  to  component  pro¬ 
duction.  The  production  applied,  inventory  applied,  and  the  short¬ 
fall  quantity  are  updated  in  the  RESULT1  data  structure.  Then 
CUTCP1  calls  subroutine  CUTCP3. 

(8)  Subroutine  CUTCP3  performs  the  following 
functions  for  each  component  and  Package  level  determined  by  the  end 
item.  A  plant/line  combination  is  obtained  from  the  RESULT3  index 
array.  The  RESULT5  index  array  is  then  checked  to  determine  if 
there  is  an  entry  for  the  plant  and  package  level.  Each  production 
decrease  which  can  be  accomplished  within  a  given  package  level  and 
plant/line  combination  is  processed  separately.  Depending  upon  the 
package  level,  the  appropriate  test  and  training  or  DOS  production 
is  reduced  in  the  RESULT3  data  structure,  and  the  work-years  and 
percent  line  are  updated.  CUTCP3  then  calls  subroutines  CUTCP4 , 
CUTCP5,  and  CUTCP6  to  process  corresponding  RESULT4,  RESULTS,  and 
RESULTS  data  structures  respectively.  The  plant/line  loop  continues 
until  either  the  plant/line  combinations  are  exhausted  or  the  reduc¬ 
tion  is  fully  achieved. 

(9)  Subroutine  CUTCP4  updates  the  RESULT4 
data  structure  for  the  component  being  processed.  Depending  on  the 
package  level  the  appropriate  test  and  training  or  DOS  production 
and/or  inventory  applied  are  reduced  in  the  RESULT4  data  structure. 
If  the  production  applied  and  the  inventory  applied  do  not  fully 
accommodate  the  decrease,  the  difference  is  added  to  the  ending 
assets  (R4E_ASSETS) . 

(10)  Subroutine  CUTCP5  updates  the  work-years 
in  the  RESULT5  data  structure  for  a  given  plant  and  package  level. 

(11)  Subroutine  CUTCP6  updates  the  work-years 
and  percent  line  used  in  the  RESULT6  data  structure  for  the  appro¬ 
priate  plant  and  line. 
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(c)  After  all  decreases  have  been  processed  for  all 
FYs ,  the  increases  are  processed  the  same  way  in  the  main  program 
except  the  RESULT4  data  structure  is  searched  for  positive  produc¬ 
tion  changes.  First,  however,  the  RESULT1  index  array  is  modified 
by  replacing  each  of  the  SCNs  with  18  -  SCN  and  resorting  the  array 
so  the  data  will  be  indexed  in  package  funding  sequence  order.  (The 
order  was  reversed  before.)  The  PKGL  and  the  FSEQ  arrays  are  also 
modified  to  provide  for  the  correct  conversions  of  SCN  to  package 
level  and  vice  versa.  For  each  FY,  production  increases  for  each 
DODIC  in  the  end  item  index  array  are  performing  in  the  following 
steps : 


(U  The  total  dollars  value  is  compared  with 
the  TOA.  If  the  total  dollar  value  reaches  the  TOA,  all  remaining 
items  will  not  be  processed  for  the  current  FY. 

(2)  Subroutine  PLSUP1  determines  which  package 
level (s)  will  be  increased.  This  is  done  by  looping  through  the 
RESULT1  data  structure  in  package  funding  sequence  order  to  find  the 
highest  priority  package  level  that  has  a  shortfall.  If  there  is 
not  enough  shortfall  in  a  package,  it  is  reduced  to  zero  before 
going  to  the  next  highest  priority  package  level.  For  each  package 
level  the  following  steps  are  performed: 

(a)  The  production  change  in  the  package 
(P_CHG_PKL)  is  determined.  This  is  the  smaller  of  the  shortfall  in 
the  RESULT1  data  structure  or  the  amount  still  needed  to  fully 
accommodate  the  increase  passed  from  MAIN. 

(b)  If  the  package  level  is  for  DOS,  the 
build  up  constraint  is  checked. 

(c)  The  package  level  increase  is  passed 
to  subroutine  PLSUP3  to  check  constraints  and  data  compatibility,  and 
to  update  the  other  data  structures. 

(d)  Production  applied,  production  dollar 
value,  and  shortfall  values  are  updated  in  the  in  the  RESULT1  data 
structure . 


(e)  If  the  package  level  is  for  DOS, 
PLSINV  is  called  to  process  the  additional  inventory  that  can  be 
applied  in  subsequent  years. 

(3)  In  PLSUP1,  the  package  level  loop  con¬ 
tinues  until  one  of  the  following  happens: 
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(a)  One  or  more  package  levels  have  fully 
accommodated  the  increase  passed  from  MAIN. 

(b)  A  primary  component  has  been  deter¬ 
mined  to  be  a  pacer. 

(c)  A  constraint  or  an  incompatibility 
between  two  or  more  of  the  RESULT  tables  has  prevented  the  shortfall 
in  a  package  to  be  completely  processed. 

(d)  The  package  levels  in  the  RESULT1 
data  structure  have  been  exhausted. 

(4)  Subroutine  PLSUP3  is  called  from  PLSUP1 
for  each  package  level.  Any  available  plant/line  combinations  that 
are  not  already  in  the  RESULT3  data  structure  are  added.  The  pro¬ 
gram  then  loops  through  plant/ line  combinations  in  the  RESULT3  index 
array.  If  there  is  no  entry  in  the  RESULT5  data  structure  for  the 
plant  and  package  level,  a  new  entry  is  added.  The  total  work-years 
at  the  plant  is  compared  with  the  direct  labor  at  the  plant.  If 
there  are  not  enough  unused  work-years,  the  production  increase  is 
reduced  accordingly.  PLSUP3  then  calls  subroutines  PLSUP4  and 
PLSUP6  where  additional  constraints  on  the  end  item  increase  are 
checked.  Subroutine  PLSCMP  is  then  called  to  check  for  primary 
component  constraints  and  to  process  the  changes  for  the  components. 
Depending  on  the  package  level,  the  appropriate  test  and  training  or 
DOS  production  is  increased  in  the  RESULT3  data  structure.  Also, 
the  dollar  value  of  production  is  increased  in  the  RESULT3  data 
structure,  and  the  work-years  and  percent  line  used  are  incremented 
in  both  the  RESULT1  and  RESULT3  data  structures.  Finally,  PLSUP3 
calls  subroutines  PLSUP4,  PLSUP5,  and  PLSUP6  to  update  the  other 
data  structures.  The  plant/line  loop  continues  until  one  of  the 
following  happens: 


(a)  One  or  more  plant/line  combinations 
have  been  identified  that  can  fully  accommodate  the  package  level 
production  increase. 


(b)  A  primary  component  has  been  found  to 
be  a  pacer.  If  this  happens,  there  is  no  need  to  consider  any  other 
plant/line  combinations  or  any  other  package  levels. 


exhausted. 


(c)  Available  plant/line  combinations  are 


(5)  In  subroutine  PLSUP4 ,  depending  upon  the 
package  level  the  appropriate  test  and  training  or  DOS  shortfall  is 
checked  in  the  RESULT4  data  structure.  If  this  is  less  than  the 
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production  increase  passed  from  PLSUP3,  the  increase  is  restricted 
accordingly.  After  additional  constraint  checking  on  the  end  item 
change  in  subroutine  PLSUP6  and  on  the  primary  component  changes  in 
subroutine  PLSCMP,  PLSUP4  is  called  again  to  update  the  appropriate 
test  and  training  or  DOS  production,  shortfall,  and  the  percent  of 
the  requirement  filled  in  the  RESULT4  data  structure.  Also,  the 
ending  assets  are  updated  if  the  package  level  is  for  DOS,  and  the 
total  Army  production,  total  dollar  value  for  Army  production,  the 
production  change,  and  the  cumulative  change  data  items  are  updated 
in  the  RESULT4  data  structure. 

(6)  Subroutine  PLSUP5  updates  the  dollar  value 
of  production  and,  if  possible,  the  work-years  in  the  RESULT5  data 
structure  for  a  given  plant  and  package  level. 

(7)  In  subroutine  PLSUP6 ,  if  there  is  no  entry 
in  the  RESULT6  data  structure  for  a  given  plant  and  line,  a  new 
entry  is  added.  Checks  are  made  to  determine  is  there  is  sufficient 
line  capacity  remaining  for  the  line  and  enough  direct  labor  avail¬ 
able  at  the  plant  to  accommodate  a  given  production  increase.  If 
either  of  these  is  a  constraint,  the  production  increase  is  reduced 
accordingly.  After  checking  for  primary  component  pacers,  PLSUP6  is 
called  a  second  time  to  update  the  dollar  value  of  production,  work- 
years,  and  the  percent  of  line  used  in  the  RESULT6  data  structure. 

(8)  PLSINV  is  called  from  PLSDP1  if  the  Pack¬ 
age  level  is  for  DOS.  PLSINV  increases,  if  possible,  the  inventory 
applied  in  the  years  following  the  current  year  being  processed. 

For  each  of  the  following  years,  PLSINV  searches  through  the  RESULT1 
data  structure  for  package  levels  that  have  a  shortfall.  The  inven¬ 
tory  applied  is  then  increased  and  the  shortfall  is  reduced  in  both 
the  RESULT1  and  RESULT4  data  structures.  The  package  levels  where 
the  inventory  applied  is  increased  will  not  necessarily  be  the  same 
as  the  package  levels  where  production  was  increased  in  a  previous 
year . 


(9)  Subroutine  PLSCMP  is  called  from  subrou¬ 
tine  PLSUP3  for  each  package  level  and  plant/line  combination  under 
consideration.  PLSCMP  checks  the  item/component  array  to  determine 
if  any  primary  components  exist  for  the  item.  If  primary  compo¬ 
nents  exist,  each  corresponding  component  change  is  determined  by 
the  end  item  change  and  the  appropriate  procurement  factor.  The 
component  change  will  be  made  by  taking  from  excess  ending  assets 
(R4E_ASSETS)  in  the  RESULT4  data  structure  if  possible.  Otherwise, 
subroutine  CHECKP  is  called  to  determine  if  the  change  can  be  accom¬ 
plished  by  increased  component  production.  If  not,  the  component  is 
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a  pacer  and  the  end  item  production  increase  is  restricted  accord¬ 
ingly.  For  each  component  subroutine  CHGCMP  is  called  to  actually 
make  the  necessary  changes  in  the  RESULT  data  structures. 

( 10)  In  subroutine  CHECKP  all  available 
plant/line  combinations  that  are  not  already  in  the  RESULT3  data 
structure  are  added.  CHECKP  then  selects  the  first  plant/line 
combination  from  the  RESULT3  data  structure  and  checks  the  total 
work-years  used  at  the  plant  and  the  percent  of  the  line  already 
utilized.  These  quantities  are  compared  with  the  direct  labor 
available  at  the  plant  and  the  allowable  250  percent  line  utiliza¬ 
tion,  respectively.  Additional  production  possible  for  the  plant/ 
line  is  determined  by  either  the  unused  work-years  at  the  plant  or 
the  unused  line  capacity,  whichever  is  most  restrictive.  Additional 
plant/line  combinations  are  considered  if  necessary.  If  there  is 
not  enough  unused  capacity  at  all  available  plant/line  combinations, 
the  component  is  a  pacer  and  the  end  item  production  increase  is 
reduced  accordingly. 


(11)  Subroutine  CHGCMP  goes  through  exactly 
the  same  plant/ line  combinations  as  CHECKP.  However,  instead  of 
checking  constraints,  it  updates  all  of  the  RESULT  data  structures. 

(d)  After  all  ^f  the  changes  have  been  internally 
processed,  the  Post  Processor  reconnects  to  ORACLE  to  put  the  accu¬ 
mulated  changes  back  into  the  PJSM  result  tables.  The  RESULT 1 , 
RESULT3,  and  RESULT4  tables  are  updated  first  because  these  contain 
the  DODIC.  The  program  calls  the  following  subroutines  for  each 
DODIC  in  the  RESULT4  index  array. 


( 1_)  Subroutine  R1UPDT  updates  the  appropriate 
rows  in  the  PJSM  RESULT1  table.  For  each  element  in  the  RESULT1  data 
structure  flags  array  that  has  been  set  to  ’Y',  the  corresponding 
row  in  the  RESULT1  table  is  updated.  If  the  row  is  not  found,  a  new 
entry  is  inserted.  Each  column  is  set  to  the  corresponding  value  in 
the  RESULT1  data  structure. 

(2)  Subroutine  R3UPDT  updates  the  appropriate 
rows  in  the  PJSM  RESULT3  table.  It  loops  through  all  plant/line 
combinations  and  FYs  for  each  DODIC  and  updates  or  inserts  new  rows 
as  required. 

(3)  Subroutine  R4UPDT  searches  the  RESULT4 
flags  array  for  all  FYs  for  a  given  DODIC  to  determine  which  ele¬ 
ments  have  been  set  to  "Y".  The  corresponding  rows  in  the  PJSM 
RESULT4  table  are  updated.  Whenever  a  Select  for  Update  does  not 
find  an  existing  row,  a  new  row  is  inserted. 
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(e)  The  remaining  tables  --  RESULT5  and  RESULT6  -- 
which  do  not  contain  DODIC  are  updated  by  the  following  subroutines: 

(U  Subroutine  R5UPDT  is  called  only  one  time. 
It  searches  the  RESULTS  flags  array  for  all  plant/package  level 
combinations  and  all  FYs  for  entries  that  have  been  modified.  The 
corresponding  rows  in  the  PJSM  RESULT5  table  are  updated  or  inserted 
as  appropriate. 


(2)  Subroutine  R6UPDT,  is  also  called  only 
one  time.  It  updates  or  inserts  appropriate  rows  in  the  PJSM 
RESULTS  table,  for  all  plant/line  combinations  and  all  FYs  where  a 
change  has  been  made  or  a  new  combination  was  added. 

(f)  After  all  Army  production  changes  are  processed 
and  the  output  tables  have  been  appropriately  changed,  the  modified 
Army  Ammunition  Program  can  then  be  viewed  via  screens,  reports,  and 
graphics . 

e.  Output  -  In  addition  to  the  updated  PJSM  result  tables, 
the  Post  Processor  produces  three  COMO  files  --  JSMPP.COMO, 
CUTCMP.COMO,  and  PLSCMP.COMO.  JSMPP.COMO  contains  step-by-step 
details  of  the  end  item  processing,  and  it  will  contain  any  error 
messages  and  warnings.  CUTCMP.COMO  and  PLSCMP.COMO  contain  details 
of  the  processing  of  the  primary  component  decreases  and  increases, 
respectively . 

f.  Security  -  The  Post  Processor  processed  information  that 
is  unclassified.  A  valid  ORACLE  username  and  password  are  required 
to  run  the  program. 

g.  Interfaces  -  The  Post  Processor  interfaces  with  the 
ORACLE  Relational  Data  Base  System  through  the  FORTRAN  Host  Language 
Interface.  The  user  must  have  access  to  ORACLE  system  and  the  PJSM 
data  base  to  precompile  and/or  run  the  program. 

5.34.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Variables  which  accept  values  directly  from  an  ORACLE  table 
usually  consist  of  the  corresponding  table  column  name  with  a 
sign  appended:  e.g.,  DODICS,  FYC . . .  Data  arrays  that  are  used  to 
store  data  retrieved  from  the  PJSM  RESULT  tables  consist  of  an  "R" 
followed  by  the  table  number  then  the  column  name;  e.g.,  R4PR0D_CHG 
is  used  to  store  the  data  items  from  the  PR0D_CHG  column 
of  the  RESULT4  table. 
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5.34.3  Verification  Procedures.  The  Post  Processor  received  a 
thorough  shakedown  during  the  4  month  long  Ammunition  Production 
Base  Management  Study.  In  this  study,  the  Post  Processor  was  used 
to  process  hundreds  of  changes  to  several  PJSM  runs  so  the  results 
would  agree  with  various  predetermined  Army  ammunition  programs. 

5.34.4  Error  Conditions.  Error  messages  are  displayed  in  the 
JSMPP . COMO  file. 

5.34.5  Listings.  Program  listings  are  located  in  <SYSSA>SAXPGM>fPS . 
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PROGRAM  RZTISIOI 

11.  DATE  ! 
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!  5.34 
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5. 


DESCRIPTION  OF  REVISIOI 
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5.35  Program.  Build  Pointer  Arrays  Program  (For  PS  and  PPJSM) 
(BUILD.PTR.FOR) 

5.35.1  Program  Description.  BUILD_PTR.FOR  is  written  in  structured 
FORTRAN  77.  The  source  code  is  in  a  file  named  BUILD_PTR. FOR.  This 
file  must  be  precompiled  using  the  ORACLE  FORTRAN  host  language  pre¬ 
compiler  which  replaces  th«>  embedded  SQL  statements  with  calls  to 
library  routines.  The  precompiler  generates  an  intermediate  file 
BUILD_PTR . F77  which  is  compiled  with  the  PRIME  F77  compiler.  The 
PRIME  BIND  utility  is  used  to  produce  an  executable  program 
BUILD_PTR.RUN. 

a.  Identification  -  Soui ce  code  is  located  in  the 
BUILD_PTR. FOR  file  which  is  under  SAXPGM>*PS.  Its  executable 
equivalent  is  BUILD_PTR. RUN. 

b.  Functions  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  the  PTR_ARRAYS  file.  This  file 
displays  all  the  data  necessary  for  the  pointer  array  used  in  the 
production  scheduling  program  (PS. FOR)  and  the  post  processor 
program  (PPJSM).  The  file  displays  the  DODICs  of  all  the  items  in 
the  data  base,  each  item's  primary  components  .'.nd  their  related 
procurement  factor,  each  item’s  secondary  components  (primers,  prop 
charges,  and  fuzes),  the  plants  in  the  data  base,  all  plant/line 
combinations  where  each  item  can  be  produced,  and  a  list  of  all  end 
items  associated  with  a  primary  component. 

c.  Input  -  The  program  requires  a  valid  ORACLE  user  name 
and  password.  All  other  data  are  obtained  from  the  ORACLE  data 
base : 


(1)  From  ITEM  table:  DODICs. 

(2)  From  ICT  table:  For  each  DODIC,  obtain  the  DODICs 
of  all  primary  and  secondary  components  and  their  related  procure¬ 
ment  factors. 


(3) 

From 

PLANT 

table : 

Plant  codes. 

(4) 

From 

PRODT 

table : 

For  each  DODIC,  obtain  the  plant 

code  and  the  line  number  where  the  item  can  be  produced. 

(5)  From  PR0DT_FY  table:  For  each  DODIC  obtain  the 
plant  code  and  the  line  number.  Order  by  DODIC  and  Line. 
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d.  Processing  - 

(1)  DODICs  are  extracted  in  alphabetical  order  from 
the  ITEM  table  and  stored  in  the  ITEMS  array. 

(2)  The  number  of  items  retrieved  and  a  list  of  all  the 
DODICs  are  written  to  the  output  file  PTR_ARRAYS. 

(3)  Primary  component  data  are  obtained  from  the  ICT 
and  stored  in  a  dynamic  data  structure  consisting  of  two  data  arrays 
(PCOMP  and  PFAC_PR1ME)  and  a  pointer  array  (PC0MP_PTR) .  The 
PC0MP_ PTR  array  is  used  to  point  to  the  location  in  the  PCOMP  array 
of  th«  DODIC's  first  primary  component.  If  the  value  in  the 
PCOMPPTR  array  equals  zero,  then  the  item  does  not  have  any  primary 
components.  The  PCOMP  array  contains  two  rows;  the  first  row  indi¬ 
cates  the  location  in  the  ITEM  array  of  primary  components  DODIC 
(its  procurement  factor  is  in  the  PFAC_PR)MF  array) ,  while  the 
second  row  points  to  the  location  in  the  PCOMP  array  which  contains 
the  item’s  next  primary  component  if  the  second  row  equals  zero, 
then  there  are  no  more  primary  components. 

(4)  The  PC0MP_PTR  array;  the  maximum  pointer  in  the 
PCOMP  array;  the  PCOMP  array,  and  the  PFACPR1ME  array  are  written 
to  the  PTR_ ARRAYS  file. 

(5)  Secondary  component  data  are  extracted  from  the 
ICT  and  stored  in  a  dynamic  data  structure  consisting  of  two  data 
arrays  (SCOMP  and  PFAC_SEC)  and  a  pointer  array  (SCOMP_PTR) .  The 
SCOMPPTR  array  is  used  to  point  to  the  location  in  the  SCOMP  array 
of  the  DODIC's  first  secondary  component.  If  the  value  in  the 
SCOMPPTR  array  equals  zero,  then  the  item  does  not  have  any 
secondary  components.  The  PCOMP  array  contains  two  rows;  the  first 
row  indicates  the  location  in  the  ITEM  array  of  the  secondary 
component’s  DODIC  (its  procurement  factor  is  in  the  PFAC_SEC  array), 
while  the  second  row  points  to  the  location  in  the  SCOMP  array  which 
contains  the  item's  next  secondary  component.  If  the  second  row 
equals  zero,  then  there  are  no  more  secondary  components. 

(6)  The  SC0MP_PTR  array,  the  maximum  pointer  in  the 
SCOMP  array,  the  SCOMP  array,  and  the  PFAC_SEC  array  are  written  to 
the  PTR_ARRAYS  file. 

(7)  The  plant  codes  are  retrieved  from  the  PLANT  table 
and  Stored  in  the  PLANT_CODE  array. 

(8)  The  number  of  plants  and  the  list  of  plant  codes 
are  written  to  the  PTRARRAYS  file. 
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(9)  The  available  production  locations  for  each  item 
are  obtained  from  the  PRODT  table  and  stored  in  a  dynamic  data 
structure  consisting  of  a  data  array  (IPL)  and  two  pointer  arrays 
(IPL_PTR  and  PR_LTNE) .  The  IPL_PTR  array  is  used  to  point  to  the 
location  in  the  IPL  array  of  the  DODIC’s  first  production  location, 
showing  the  plant  and  the  line.  If  the  value  in  the  IPL_PTR  array 
equals  zero,  then  the  item  does  not  have  any  designated  production 
location.  Using  the  same  pointer  from  the  IPL_PTR  array,  one  can 
enter  the  PR_LINE  array  to  determine  the  location  in  the  IPL  array 
which  contains  the  item’s  next  production  location.  When  the  value 
in  the  PR_LINE  array  equals  zero,  there  are  no  more  production 
locations  for  that  item. 

(10)  From  PR0DT_FY,  any  additional  production  locations 
are  extracted  and  added  to  the  arrays  specif  iced  in  the  above  para¬ 
graph. 

(11)  The  IPL_PTR  array,  the  maximum  pointer  in  the  IPL 
array,  the  IPL  array,  and  the  PR_LINE  array  are  written  to  the 
PTR_ ARRAYS  file. 

(12)  For  each  primary  component,  a  list  of  end  items 
which  use  it  are  retrieved  from  the  ITC  and  stored  in  a  dynamic  data 
structure  consisting  of  a  data  array  (END  ITEM)  and  a  pointer  array 
(END_ITEM_PTR) .  The  END_ITEM_PTR  array  is  used  to  point  to  the 
location  in  the  END_ITEM  array  of  the  first  end  item  which  uses  the 
primary  component.  If  the  value  in  the  END_ITEM_PTR  array  equals 
zero,  then  the  item  is  not  used  as  a  primary  component  on  any  end 
item.  The  END_ITEM  array  has  two  rows;  the  first  row  indicates  the 
location  in  the  ITEM  array  of  the  end  item’s  DODIC,  while  the  second 
row  points  to  the  location  in  the  END_ITEM  array  which  contains  the 
next  end  item  which  uses  that  primary  component.  If  the  second  row 
equals  zero,  there  are  no  more  end  items  which  use  that  primary 
component . 

(13)  The  END_ITEM_PTR ,  the  maximum  pointer  in  the 
END_ITEM  array,  and  the  END_ITEM  array  are  written  to  the  PTR_ARRAYS 


5.35.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 
'$'  character  added.  The  name  of  the  output  file  is  PTR_ARRAYS. 

5.35.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI. 
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5.35.4  Error  Conditions.  Error  messages  will  be  printed  to  a  file 
called  MODEL. COMO. 

5.35.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (BUILD_PTR. LIS)  is 
located  in  <SYSSA>SAXPGM>iPS .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 


5-243 


ADSM  1S-L62-LAT-ZZZ-MM-2604 
30  November  1987 


PKKUM  unsioi 

1 1 .  DATE 

for  u*e  of  this  fora, 

<••  TB  18-111;  the  proponent  alency  ie  DCSOPS. 

1  30  lov  87 

2.  PB06SAM  ID 

13. 

PBOGBAIf  111 

5.35 

i 

i 

BUILD  PTE. FOB 

15. 

DESCSIPTIOI  OF  BETISIOI 

i 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


K 

X 

l 

i 


■s* 


5.36  Program.  Requirement  Summarization  Program  (TREQ.FOR) 

5.36.1  Program  Description.  The  TREQ  program  is  written  in  struc¬ 
tured  FORTRAN  77  with  embedded  SQL  statements.  The  source  code  is 
in  a  file  named  TREQ.FOR.  This  file  must  be  precompiled  using  the 
ORACLE  FORTRAN  host  language  precompiler  which  replaces  the  embedded 
SQL  statements  with  calls  to  library  routines.  The  precompiler 
generates  an  intermediate  file  TREQ.F77  which  is  compiled  with  the 
PRIME  F77  compiler.  The  PRIME  BIND  linker  utility  is  used  to  pro¬ 
duce  an  executable  run  file  TREQ. RUN. 


a.  Function  -  The  program  reads  data  from  the  ORACLE  JSM 
data  base  and  builds  the  total  requirement  (TREQ)  table.  Army 
requirements  from  the  REQTS_ARMY  table  are  accumulated  in  accordance 
with  the  guidance  parameters  obtained  from  the  REVTAB  and  GOALS 
tables.  Other  customer  requirement  quantities  are  read  from  the 
REQTS_0THER  table,  summed  over  service,  and  added  to  the  TREQ  table. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name,  a 
password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 


(1)  From  REVTAB  table:  Beginning  FY,  level  of  train¬ 
ing,  and  the  depot  requirements  parameter. 

(2)  From  GOALS  table:  FY,  draw  down,  and  buildup  goals 
in  days  of  supply. 


(3)  From  REQTS_ARMY  table:  DODIC,  FY,  package  level, 
and  required  quantity. 

(4)  From  ITEM_DATA  table:  Draw  down  and  buildup  target 
levels  in  days  of  supply. 

(5)  From  ITEM  table:  New  materiel  fielding  code. 

(6)  From  REQTS_OTHER  table:  DODIC,  FY,  service  code, 
and  required  quantity. 

c.  Processing  - 

(1)  Guidance  parameters  are  obtained  from  REVTAB  and 
GOALS  tables  and  stored  in  FORTRAN  variables  and  arrays. 

(2)  All  old  rows  with  the  same  RCN  as  the  one  being  run 
are  deleted  from  the  TREQ  table. 
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(3)  Requirements  data  are  extracted  from  the  REQTS_ARMY 
table  by  PKGL  for  each  DODIC/FY  combination. 

(4)  For  each  DODIC/FY  combination  the  following  is 
performed;  computational  details  are  given  in  the  program  listing. 

(a)  Package  levels  6  and  11  are  recomputed  as 

follows : 

If  PKG  6  >  0 

If  Depot  requirement  =  3 
If  YEAR  =  Beginning  FY 

PKG  6  =  PKG  6  »  (90./200.) 

Else  if  YEAR  =  Beginning  FY  +  1 
PKG  6  =  PKG  6  »  (145. /200.) 

Else 

PKG  6  =  PKG  6 
End  if 
End  if 
End  if 

If  PKG  11  >  0 

If  Depot  requirement  =  3 
If  YEAR  =  Beginning  FY 

PKG  11  =  PKG  11  »  (90./200.) 

Else  if  YEAR  =  Beginning  FY  +  1 
PKG  11  =  PKG  11  *  (145./200.) 

Else 

PKG  11  =  PKG  11 
End  if 
End  if 
End  if 

(b)  Army  test  and  training  requirement  is  computed 

as  follows; 

If  Level  of  Training  =  1 

Army  test  and  training  =  PKG  2  +  PKG  5 
Else 

Army  test  and  training  =  PKG  2  +  PKG  5  +  PKG  10 
End  if 

(c)  The  total  Army  requirement  is  computed.  This 
is  the  sum  of  PKG  2  through  PKG  17. 
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(d)  The  draw  down  and  buildup  targets  in  Days  of 
Supply  (DOS)  are  obtained  from  the  ITEM_DATA  table  if  this  informa¬ 
tion  is  there;  otherwise,  default  values  from  the  GOALS  table  are 
used . 


(e)  Target  quantities  are  computed  using  the  DOS 
targets  obtained  in  5 . 36 . lc (4)  (d) .  Details  of  this  conversion 
follow: 


If  Level  of  Training  =  1 

PROTECT  =  PEG  3  +  PEG  4  +  PEG  6 
Else 

PROTECT  =  PEG  3  +  PEG  4  +  PEG  6  +  PEG  1 1 
End  if 

TEMPI  =  PEG  7  +  PEG  8 

TEMP2  =  TEMPI  +  PEG  9 

TEMP3  =  TEMP2  +  PEG  12  +  PEG  13 

TEMP 4  =  TEMP3  +  PEG  14 

TEMP5  =  TEMP4  +  PEG  15  +  PEG  16 

TEMP6  =  TEMP5  +  PEG  17 


If  DOS  <  30 

QTY  =  PROTECT 
Else  if  DOS  =  30 
QTY  =  PROTECT 
Else  if  DOS  <  45 
QTY  =  PROTECT 


(DOS  /  30.0)  »  PEG  7 
PEG  7 

PEG  7  +  ((DOS  -  30.0)  /  15.0)  *  PEG  8 


Else  if  DOS  =  45 

QTY  =  PROTECT  +  TEMPI 
Else  if  DOS  <  60 

QTY  =  PROTECT  +  TEMPI  ♦  ((DOS  -  45.0)  /  15.0)  *  PEG  9 


Else  if  DOS  =  60 

QTY  =  PROTECT  +  TEMP2 
Else  if  DOS  <  90 

QTY  =  PROTECT  +  TEMP3  ♦  ((DOS  -  60.0)  /  30.0)  »  PEG  14 


Else  if  DOS  =  90 

QTY  =  PROTECT  +  TEMP4 
Else  if  DOS  <  180 

QTY  =  PROTECT  +TEMP5  +  ((DOS  -  90.0)  /  90.0)  *  PEG  17 


Else  if  DOS  -  180 

QTY  =  PROTECT  +  TEMP6 
End  if 
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(f)  The  new  materiel  fielding  code  for  the  DODIC 
is  retrieved  from  the  ITEM  table.  If  the  item  is  a  new  materiel 
fielding  item,  the  new  materiel  fielding  quantity  is  computed; 
otherwise,  it  is  set  to  zero.  The  new  materiel  fielding  quantity  is 
the  sum  of  PKG  3  through  PKG  7. 

(g)  A  new  record  containing  all  the  quantities 
computed  in  5 . 36 . lc (4) (b)  to  5 . 36 .  lc  (4)  ( f )  is  inserted  into  the  TREQ 
table.  The  0THER_REQ  column  is  set  to  zero. 

(5)  Other  customer  requirements  quantities  are  obtained 
from  the  REQTS_OTHER  table  and  summed  over  service. 

(6)  For  each  DODIC/FY  combination  the  following  is 

performed : 

(a)  A  check  is  made  to  determine  if  the  DODIC/FY 
combination  was  inserted  into  the  TREQ  table  when  the  Army  require¬ 
ments  were  loaded. 

(b)  If  the  row  exists,  the  OTHERREQ  column  is 

updated. 


(c)  If  the  row  does  not  exist,  a  new  row  is  added 
with  all  Army  requirements  columns  Sot  to  zero. 

5.36.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  ORACLE 
tables  usually  consist  of  the  corresponding  table  name  with  a  T 
character  added. 

5.36.3  Verification  Procedures.  The  program  can  be  verified  by 
comparing  the  TREQ  with  the  source  tables  REQTS_ARMY  and  REQTS_OTHER. 

5.36.4  Error  Conditions.  Any  error  messages  will  be  printed  in  the 
TREQ. COMO  file. 

5.36.5  Listings.  The  program  listing  comments  assist  in  making 
program  changes.  The  program  listing  TREQ. LIS  is  located  in 
<SYSSA>SAXPGM>fPGM.  A  hardcopy  of  the  source  program  is  available 
in  AMSMC- IMS-HM. 
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5.37  Program.  Army  Acquisition  Report  (RPT1.F0R) 

5.37.1  Program  Description.  Program  PRT1.F0R  report  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT1.F0R. 
This  file  must  be  precompiled  using  the  ORACLE  FORTRAN  host  language 
embedded  SQL  statements  with  calls  to  library  routines.  The  precom¬ 
piler  generates  an  intermediate  file  RPT1.F77  which  is  compiled  with 
the  PRIME  F77  compiler.  The  PRIME  BIND  utility  is  used  to  produce 
an  executable  program  RPT1  RUN. 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  the  Army  Acquisition  Report. 

This  report  displays  quantities  and  dollar  values  by  family  and  item 
for  the  5-year  POM  cycle  plus  two  RAMP  years.  Subtotals  are  printed 
for  each  family,  non-AAO  hardware,  non-AAO  production  base  projects, 
total  non-AAO,  total  hardware,  and  grand  total. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 
a  password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 


(1)  From  REVTAB  table:  Beginning  FY,  next  FY  (NFY) , 
training  level  (LVTRNG) ,  and  depot  resourves  (DEPOTR) . 

(2)  From  FAMILY  table:  Family  names  and  family. 

(3)  From  ITEM  table:  FSC;  DODIC;  SSN;  HQ,  AMC  SEQ; 
family;  sub-family;  and  item  nomenclature. 

(4)  From  RESULT1  table:  DODIC,  FY,  Army  production 
applied,  and  dollar  value  of  Army  production. 

(5)  From  RAMP_ITEM  table:  DODIC,  FY,  Army  buy  quanti¬ 
ty,  and  dollar  value. 

(6)  From  ITEM_DATA  table:  DODIC,  FY,  and  POM  cost, 

c.  Processing  - 

(1)  Family  names  are  retrieved  from  the  FAMILY  table 
and  Stored  in  the  FAMILY_NAMES  array. 

(2)  Selected  columns  are  extracted  from  the  ITEM  table 
and  Stored  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 
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(3)  Data  are  retrieved  from  the  RESULT1  table  and 
stored  in  a  dynamic  data  structure  consisting  of  two  data  arrays 
(PROD_ARRAY  and  COST_ARRAY)  and  an  index  array.  Each  index  entry 
consists  of  the  family,  sub-family,  DODIC,  and  a  pointer  to  the 
appropriate  columns  in  the  data  arrays.  Each  data  array  has  seven 
rows  to  provide  space  for  five  POM  years  plus  two  RAMP  years. 

(4)  Data  for  two  RAMP  FYs  are  extracted  from  the 
RAMP  ITEM  table  and  added  to  the  data  structure  described  in 
5 . 37? lc (3)  . 

(5)  Quantities  and  costs  accumulated  in  5.37. 1 c ( 3 )  and 
5.37. 1 c ( 4 )  are  converted  to  thousands  and  millions,  respectively. 

(6)  Items  that  have  a  POM  cost  are  obtained  from  the 
ITEM_DATA  table  and  added  to  the  data  structure  described  in 
5.37. lc (3)  . 

(7)  Each  column  of  accumulated  data  obtained  in 
5.37. lc(3),  5.37. 1 c ( 4 ) ,  and  5.37. 1 c ( 6 )  is  printed  out  along  with 
related  information  from  the  ITEM_ARRAY.  Form  feeds  and  headers  are 
printed  so  each  family  starts  on  a  new  page  and  to  prevent  printing 
over  page  breaks . 

(8)  In  each  index  entry,  the  HQ,  AMC  SEQ  is  inserted 
into  the  first  two  bytes  replacing  family/sub-family.  The  index  is 
resorted  and  5.37.  1  c  ( 7 )  is  repeated  except  the  items  are  now  printed 
in  HQ,  AMC  Sequence  Number  sequence. 

5.37.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 

character  added.  The  name  of  the  output  file  is  RPTl.RCNx  where 
'x'  is  a  particular  revision  control  number  (one  or  two  digits) . 

5.37.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 

5.37.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.37.5  Listings.  The  program  listing  contains  comments  to  assist 

in  making  program  changes.  The  program  listing  (RPT1.LIS)  is  located 
in  <SYSSA)SAXPGM>SRPT.  A  hardcopy  of  the  source  program  is  available 
in  AMSMC- IMS-HM. 
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5.38  Program.  Workload  Summary  Report  by  Item  (by  Plant  and  Line) 
(RPT2 . FOR) 

5.38.1  Program  Description.  The  RPT2.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT2.F0R. 
This  file  must  be  precompiled  using  the  ORACLE  FORTRAN  host  language 
precompiler  which  replaces  the  embedded  SQL  statements  with  calls  to 
library  routines.  The  precompiler  generates  an  intermediate  file 
RPT2.F77  which  is  compiled  with  the  PRIME  F77  compiler.  The  PRIME 
BIND  utility  is  used  to  produce  an  executable  program  RPT.RUN. 

a.  Functions  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  detailed  workload  report  for 
each  plant/line  combination.  The  report  lists  information  for  each 
item  produced  on  each  line.  This  information  includes  the  items’ 
SSN,  DODIC,  nomenclature,  production  rate,  direct  labor  staffing, 
alternate  producers  of  the  item  (if  any).  Army  and  other  customer 
production,  work-years,  and  percent  line  utilization  are  printed  out 
for  each  FY. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 

a  password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 


(1)  From  REVTAB  table:  Beginning  FY,  next  FY  (NFY) , 
training  level  (LVTRNG) ,  and  depot  reserves  (DEPOTR) . 

(2)  From  PLANT  table:  Plant  code,  plant  name. 

(3)  From  ITEM  table:  FSC ,  DODIC,  SSN,  and  item  nomen¬ 
clature  . 

(4)  From  PRODT  table:  Plant  code,  line  number,  DODIC, 
1-8-5  production  rate,  1-8-5  direct  labor  staffing,  and  line  avail¬ 
ability.  Only  rows  where  avail  >0  are  retrieved. 

(5)  From  RESULT3  table:  DODIC,  plant  code,  line  number, 
FY,  other  customer  production,  total  Army  production,  work-years  for 
Army  production,  work-years  for  other  customer  production,  total 
percent  line  utilization,  and  amount  produced  to  support  Army  days 

of  supply. 
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c.  Processing  - 

(1)  The  data  are  extracted  from  the  PLANT  table  and 
Stored  in  arrays.  A  cross  reference  array  is  built  which  is 
subsequently  used  to  convert  plant  numbers.  Plant  numbers  are 
assigned  in  a  manner  that  assures  that  tne  plant  names  will  be  in 
alphabetical  order  in  the  output  report. 

(2)  Selected  columns  are  obtained  from  the  ITEM  table 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 

(3)  Data  are  retrieved  from  the  PRODT  table  and  stored 
in  arrays.  At  the  same  time,  a  cross  reference  array  is  built  which 
is  subsequently  used  to  check  for  alternative  plants  that  produce  an 
i  tem. 

(4)  Data  are  obtained  from  the  RESULT3  table  and  stored 
in  a  dynamic  data  structure  consisting  of  five  data  arrays  (ARMYPROD 
0THRPR0D ,  ARMY  WRKY,  0THR_WRKY,  and  LINE_UTIL)  and  an  index  array. 
Each  index  entry  contains  plant  number,  line  number,  DODIC,  and  a 
pointer  to  the  appropriate  columns  in  the  data  arrays.  Each  data 
array  has  five  rows  --  one  for  each  of  the  five  FYs  in  the  POM 
cycle  . 

(5)  Print  out  each  column  of  data  in  the  data  arrays 
along  with  related  information  obtained  in  steps  5.38. 1 c ( 1 )  to 
5.38. lc (3) . 

5.38.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  »th  a 

character  added.  The  name  of  the  output  file  is  RPT2.RCNx  where 
'x'  is  a  particular  RCN  (one  or  two  digits). 

5.38.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI. 

5.38.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.38.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT2.LIS)  is 
located  in  <SYSSA>SAXPGM)tRPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC- IMS-HM. 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


raoaui  uvisioi  :i.  date 

_ For  me  of  this  for»,  see  T3  18-111;  the  proponent  aAency  is  DCSOPS. _ !  30  lov  87 

2.  P BOG SAN  ID  13.  PBOGBAM  MANE 

5.38 _ !  BPT2.F0B _ 

«.  BEY  10. /DATE  15. _ DESCBIPTIOI  OF  BETISIOI _ 


m 


WWW 


wjvy  ■wv.'v.w'A  w-m  . « 


’>  '  n  - 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


5 . 39  Program. .  Plant  Workload  Utilization  Detailed  Report 
(RPT3 . FOR) 

5.39.1  Program  Description.  The  RPT3.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT3.F0R. 
This  file  must  be  precompiled  with  the  ORACLE  FORTRAN  host  language 
precompiler  which  replaces  the  embedded  SQL  statements  with  calls  to 
library  routines.  The  precompiler  generates  an  intermediate  file 
RPT3.F77  which  is  compiled  with  the  PRIME  F77  compiler.  The  PRIME 
BIND  utility  is  used  to  produce  an  executable  program  RPT3.RUN. 

a.  Functions  -  The  program  extracts  information  from 
the  PJSM  ORACLE  data  base  and  produces  a  detailed  plant  workload 
report  for  commercial  and  active  Army  Ammunition  Plants.  The  report 
displays  the  quantity  produced  and  work-years  by  plant,  item,  and 
FY. 


b.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 
a  password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base . 


(1)  From  REVTAB  table:  Beginning  FY,  next  FY  (NFY) , 
training  level  (LVTRNG) ,  and  depot  reserves  (DEPOTR) . 

(21  From  PLANT  table:  Plant  code,  plant  name,  produc¬ 
tion  overhead  factor  and  non-production  overhead  factor. 

(3)  From  STAFF  table:  Plant,  FY,  and  UMA  overhead. 

(4)  From  ITEM  table:  FSC,  DODIC,  SSN,  and  nomenclature. 

(5)  From  RESULT3  table:  DODIC,  plant  code,  FY,  other 
customer  production  *  Army  test  and  training  production  ♦  Army 
additional  days  of  supply  production,  and  work-years  Army  +  work- 
years  other. 

c.  Processing  - 

(1)  The  data  are  extracted  from  the  PLANT  table  and 
stored  in  arrays.  A  cross  reference  array  is  built  which  is  subse¬ 
quently  used  to  convert  plant  codes  into  plant  numbers.  Plant 
numbers  are  assigned  in  a  manner  that  assures  that  the  plant  names 
will  be  in  alphabetical  order  in  the  output  report. 

(2)  The  plant  code,  FY  and  OMA  overhead  values  are 
obtained  from  the  STAFF  table,  and  the  OMA  overhead  data  are  stored 
in  the  array  0MA_0H. 
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(3)  Selected  columns  are  retrieved  from  the  ITEM  table 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 


(4)  The  total  production  and  total  work-years  data  are 
extracted  from  the  RESULT3  table  and  stored  in  a  dynamic  data 
structure  consisting  of  two  data  arrays  (T0TL_PR0D  and  T0TL_WKYR) 
and  an  index  array.  Each  index  entry  consists  of  the  plant  number, 
DODIC,  and  a  pointer  to  the  appropriate  columns  in  the  data  arrays. 
There  are  five  rows  in  the  data  arrays  to  provide  space  for  five 
FYs . 


(5)  Each  column  of  accumulated  data  in  the  production 
and  work-years  arrays  is  printed  out  in  plant/DODIC  sequence  along 
with  related  information  from  the  ITEM_ARRAY.  Headers  are  added  so 
each  plant  starts  on  a  new  page  and  to  prevent  printing  over  page 
breaks.  Footer  information  for  each  plant  computed  using  the  over¬ 
head  factors  obtained  in  step  5.39. 1 c ( 2 )  and  the  OMA  overhead 
obtained  in  step  5.39. lc(3). 

5.39.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  directly  receive  values  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 

character  added.  The  name  of  the  output  file  is  RPT3.RCNx  where 
”x'  is  a  particular  revision  control  number  (one  or  two  digits) . 

5.39.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI. 

5.39.4  Error  Conditions.  Error  message  will  be  printed  in  the 
output  file. 

5.39.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT3.LIST)  is 
located  in  <SYSSA) SAXPGM)f RPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC- IMS-HM. 
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5.40  Program.  Plant  Workload  Summary  Report  (RPT4.F0R) 

5.40.1  Program  Deaription.  The  RPT4.F0R  program  is  written  in 
structured  FORTRAN  77  with  embedded  SQL  statements.  The  source  code 
is  in  a  file  named  RPT4.F0R.  This  file  is  an  input  to  the  ORACLE 
FORTRAN  host  language  precompiler  that  generates  an  intermediate 
file  --  RPT4.F77  --  which  is  compiled  with  the  PRIME  F77  compiler. 
The  PRIME  BIND  linker  utility  is  used  to  produce  an  executable 
program  --  RPT4.RUN. 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  one  page  summary  of  plant  work¬ 
load  in  work-years  for  commercial  and  active  Army  Ammunition  Plants 
for  the  5-year  POM  cycle. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 
a  password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 

(1)  From  REVTAB  table:  Beginning  FY. 

(2)  From  PLANT  table:  Plant  code,  plant  name,  produc¬ 
tion  overhead  factor,  and  non-production  overhead  factor. 

(3)  From  STAFF  table:  Plant  code,  FY,  and  OMA  over¬ 
head  . 

(4)  From  RESULT3  table:  Plant  code,  FY,  and  total 

work-years . 

c.  Processing  - 

(1)  The  plant  code,  plant  name,  the  production  overhead 
factor,  and  the  non-production  overhead  factor  are  extracted  from 
the  PLANT  table  and  stored  in  arrays.  A  cross  reference  array  is 
built  which  is  subsequently  used  to  convert  plant  codes  to  plant 
numbers.  Plant  numbers  are  assigned  to  the  plants  in  a  manner  that 
assures  that  the  plants  names  will  be  in  alphabetical  order  on  the 
output  report. 

(2)  The  plant  code,  FY,  and  OMA  overhead  are  obtained 
from  the  STAFF  table,  and  the  OMA  overhead  data  are  stored  in  an 
array  --  0MA_0H. 
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(3)  Plant  code,  FY  and  total  work-years  are  retrieved 
from  the  RESULT3  table.  The  work-years  data  are  accumulated  in  a 
dynamic  data  structure  consisting  of  a  data  array  and  an  index 
array.  Each  index  entry  consists  of  a  plant  number  and  a  pointer  to 
the  appropriate  column  in  the  data  array. 

(4)  Each  column  of  accumulated  data  in  the  data  array 
is  printed  out  along  with  the  total  labor  which  is  computed  using 
the  production  overhead,  non-production  overhead,  and  OMA  overhead 
data  which  were  retrieved  in  steps  5.40. lc(l)  and  5.40. lc(2).  The 
following  formulas  are  used: 

(a)  Production  overhead  =  Production  overhead 
factor  *  Total  work-years. 

(b)  Non-production  overhead  =  non-production 
overhead  factor  *  (Total  work-years  +  Production  overhead  +  OMA 
overhead) . 

(c)  Total  labor  =  Total  work-years  +  Production 
overhead  +  non-production  overhead  +  OMA  overhead. 

5.40.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  from  the  data  base  usually 
consist  of  the  table  column  name  with  a  character  added.  The 
name  of  the  output  file  is  RPT4.RCNx  where  ’x’  is  a  particular  RCN 
(one  or  two  digits) . 

5.40.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 

5.40.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.40.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT4.L1S)  is  in 
<SYSSA>SAXPGM>iRPT .  A  hardcopy  of  the  source  program  is  available 
in  AMSMC- IMS-HM. 
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5.41  Program.  Analysis  Worksheet  Report  (RPT5.F0R) 

5.41.1  Program  Description.  The  RPT5.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT5.F0R. 
This  file  must  be  precompiled  using  the  ORACLE  FORTRAN  host  language 
precompiler  which  replaces  embedded  SQL  statements  with  calls  to 
library  routines.  The  precompiler  generates  an  intermediate  file 
RPT5.F77  which  is  compiled  with  the  PRIME  F77  compiler.  The  PRIME 
BIND  linker  utility  is  used  to  produce  an  executable  program 
RPT5 . RUN. 

a.  Function  -  The  RPT5.F0R  program  extracts  information 
from  the  PJSM  ORACLE  data  base  and  produces  a  detailed  ITEM  ANALYSIS 
report.  This  is  a  long  report  (about  575  pages)  because  information 
is  displayed  for  each  plant/line/item  combination.  The  report  is 
ordered  by  family,  sub-family,  item  (DODIC) ,  plant,  and  line. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 
a  password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 


(1)  From  REVTAB  table:  Beginning  FY,  next  FY  (NFY) , 
training  level  (LVTRNG) ,  and  depot  reserves  (DEPOTR) . 

(2)  From  PACKAGE  table:  Package  numbers  and  names. 

(3)  From  SERVICE  table:  Other  customer  codes  and 

names . 

(4)  From  PLANT  table:  Plant  codes  and  names. 

(5)  From  ITEM  table:  FSC,  DODIC,  SSN,  family,  sub¬ 
family,  new  materiel  fielding  code,  item  nomenclature,  and  unit  of 
measure . 


(6)  From  ITEM_DATA  table:  DODIC,  FY ,  and  unit  price 

for  Army. 

(7)  From  RAMP_ITEM  table:  DODIC,  FY,  Army  losses,  unit 
price,  and  ending  assets  for  the  year  prior  to  the  5-year  POM  cycle. 

(8)  From  RAMP_PR0D  table:  DODIC,  FY,  Army  production 
and  dollar  value,  other  customer  production  (PROD_TOT  -  PROD_ARMY) 
and  work-years  (WRKYRS_TOT  -  WRKYRS_AR) ,  and  for  year  prior  to  the 
5-year  POM  cycle . 
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(9)  From  PRODT  table:  DODIC,  plant,  line,  1-8-5  and 
2-8-5  production  rates  and  directed  labor  staffing,  line  avail¬ 
ability,  and  minimum  procurement  quantity. 

(10)  From  PR0DT_FY  table:  Project  code,  DODIC,  line, 

FY,  month,  1-8-5  and  2-8-5  production  rates  and  direct  labor  staffing. 
Only  rows  where  RCN  =  specified  RCN  are  retrieved. 

(11)  From  RESULT  1  table:  DODIC,  FY,  package  level, 
inventory  applied,  production  applied,  production  dollar  value, 
work-years,  and  shortfall  quantity.  Only  rows  where  RCN  =  specified 
RCN,  FY  is  between  BFY  -  3  and  BFY  +  4,  and  TYPE  =  ’E’  are  retrieved. 

(12)  From  RESULT2  table:  DODIC,  FY,  customer  code, 
inventory  applied,  production  applied,  production  dollar  value, 
work-years,  and  shortfall  quantity.  Only  rows  where  RCN  =  specified 
RCN,  and  FY  is  between  BFY  -  3  and  BFY  +  4  are  retrieved. 

(13)  From  RESULT3  table:  DODIC,  line,  FY,  and  other 
customer  production  quantity.  Only  rows  where  RCN  =  specified  RCN 
and  FY  is  between  BFY  and  BFY  +  4  are  retrieved. 

(14)  From  RESULT4  table:  DODIC,  FY,  and  ending  assets. 
Only  rows  where  RCN  =  specified  RCN  and  FY  is  between  BFY  and  BFY  +  3 
are  retrieved. 

c.  Processing  - 

(1)  Package  names  are  retrieved  from  the  PACKAGE  table 
and  stored  in  the  PKG  array. 

(2)  Other  customer  codes  and  names  are  extracted  from 
the  SERVICE  table  and  stored  in  arrays. 
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(3)  Plant  codes  and  names  are  obtained  from  the  PLANT 
table  and  Stored  in  arrays.  A  cross  reference  array  is  built  which 
is  subsequently  used  to  convert  plant  codes  into  plant  numbers. 

Plant  numbers  are  assigned  in  a  manner  that  assures  that  plant  names 
will  be  in  alphabetical  order  on  the  output  report. 

(4)  Selected  columns  are  extracted  from  the  ITEM  table 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 

(5)  The  ITEM_DATA  table  is  retrieved  to  get  unit  price 
data  by  DODIC  and  FY.  This  information  is  stored  in  a  dynamic  data 
structure  consisting  of  a  data  array  and  an  index  array. 
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(6)  Projected  beginning  assets  for  the  beginning  FY 
are  obtained  from  the  RAMP_ITEM  table.  These  data  are  stored  in  a 
dynamic  data  structure  consisting  of  a  data  array  and  an  index 
array.  Army  losses  and  unit  prices  for  RAMP  years  are  stored  in 
other  data  structures. 

(7)  Army  Production  quantity,  dollar  value,  other 
customer  production  quantity,  and  work-years  data  by  DODIC  and  FY  is 
retrieved  from  the  RAMP_PR0D  table  and  stored  in  data  structures. 

(8)  Selected  columns  are  extracted  from  the  PRODT 
table  and  stored  in  an  array  along  with  related  data  obtained  in 
steps  5.41. 1  c ( 2 )  and  5.41.  lc(3).  At  the  same  time  two  other  arrays 
are  built  which  subsequently  are  used  to  look  up  alternate  plants 
for  a  given  DODIC  and  alternate  DODICs  for  a  given  line. 

(9)  Data  are  retrieved  from  the  PR0DT_FY  table  and 
stored  in  an  array.  These  data  are  sorted  by  DODIC,  line,  FY,  and 
month. 

(10)  Selected  data  are  obtained  from  the  RESULT1  table 
and  stored  in  a  dynamic  in-memory  data  base  system.  This  system 
consists  of  five  data  arrays  (R1INVAPP,  R1PR0D_APP,  R1PR0D_DV, 
R1WRKYRS,  and  R1SFALL_QTR)  and  an  index.  The  index  uses  DODIC  and 
package  level  to  form  a  unique  concatenated  key. 

(11)  Data  are  extracted  from  the  RESULT2  table  and 
stored  in  data  arrays  (R1INV_APP,  R2PR0D_APP ,  R2PROD_DV,  R2WRKYRS , 
and  R2SFALL_QTY) .  These  arrays  are  indexed  by  a  DODIC/service  code 
concatenated  index  structure. 

(12)  Other  customer  production  data  are  retrieved  from 
the  RESULTS  table  and  stored  in  a  in-memory  data  base  system.  This 
consists  of  a  data  array  (PR0D_0THER)  and  a  D0D1C/LINE  composite 
index  structure. 

(13)  Ending  assets  for  each  DODIC  and  for  beginning  FY 
through  beginning  FY  +  3  are  obtained  from  the  RESULT4  table  and 
added  to  the  data  obtained  in  step  5.41. 1 c ( 6 ) . 

(14)  For  each  DODIC/plant/ 1 ine  combination  obtained 
from  the  PRODT  table  in  step  5.41. lc(8),  do  the  following: 

(a)  Get  the  plant  code  and  name  from  the  array 
built  in  step  5.41.1c(3). 

(b)  Look  up  item  information  in  the  ITEM_ARRAY 
built  in  step  5.41.1c(4). 
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(c)  Look  up  beginning  assets  in  the  data  structure 
built  in  step  5.41.1c(6). 

(d)  Look  up  alternate  plants  and  items  in  arrays 
built  in  step  5.41.1c(8). 

(e)  Look  up  any  production  base  projects  in  the 
array  built  in  step  5.41. lc(9).  Write  out  data  if  any  projects  are 
found . 


(f)  Look  up  other  customer  requirements  in  the 
data  structure  built  in  step  5.41 .  lc(ll)  and  print  out. 

(g)  Get  Army  test  and  training  losses  from  the 
in-memory  data  base  system  built  in  step  5.41.  1  c  ( 6 )  and  5.41.1c(10). 

(h)  Compute  and  print  out  total  quantities  and 
dollar  values  for  all  package  levels  using  the  data  from  the  RESULT1 
and  RAMP_PR0D  tables. 

(i)  Look  up  and  print  out  unit  prices  for  each  FY 
using  the  data  structure  built  in  step  5.41. lc(5). 

(„)  Look  up  beginning  assets  for  each  FY  in  the 
PROJASSETS  array. 

(k)  Get  other  customer  production  from  the  RESULT3 
data  obtained  in  step  5.41.  lcU2). 

(l)  Look  up  and  print  out  Army  production  data  by 
package  level  using  the  RESULT1  data  obtained  in  step  5.41. lc(10) . 

(m)  Look  up  and  print  out  other  customer  produc¬ 
tion  quantities  and  dollar  values  using  the  RESULT2  data  obtained  in 
Step  5.41. lc(ll) . 

5.41.2  Conventions.  The  program  is  written  in  highly  structured 
FORTRAN  77.  Program  variables  that  receive  values  directly  from  the 
data  base  usually  consist  of  the  corresponding  table  column  name 
with  a  character  added.  The  name  of  the  output  file  is  RPT5.RCNx 
where  ‘x‘  is  a  particular  RCN  (one  or  two  digits) . 

5.41.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  other  reports  or  data 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI. 


5.41.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 
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5.41.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT4.LIS)  is 
located  in  <SYSSA>SAXPGM>$RPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC- IMS-HM. 
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5.42  Program.  Program  Development  Incremental  Package  (PDIP) 
Summary  Report  (RPT6.F0R). 

5.42.1  Proflram  Description.  The  RPT6.F0R  program  is  written  in 
FORTRAN  77.  The  source  code  is  identified  by  a  file  labeled 
RPT6.F0R.  After  being  precompiled  with  the  ORACLE  precompiler, 
compiled  with  the  FORTRAN  77  compiler  and  loaded  with  BIND,  the  run 
file  is  identified  as  RPT6.RUN. 

a.  Function  -  The  RPT6.F0R  program  extracts  cost  informa¬ 
tion  by  PDIP  from  the  PJSM  data  base,  summarizes  the  data  by  year, 
NMF  and  PDIP,  and  writes  a  one  page  summary  report.  The  user,  by 
means  of  the  JSM  Master  Menu,  can  run  the  program  and  print  the 
report.  Users  have  access  to  this  program  only  through  the  JSM 
Master  Menu. 

b.  Input  - 

(1)  Interactive:  ORACLE  identification  and  password 
along  with  the  RCN. 

(2)  From  data  base  and  accessed  by  main  program: 

(a)  From  REVTAB  table:  Beginning  FY,  next  FY 
(NFY) ,  training  level  (LVTRNG) ,  and  depot  reserves  (DEPOTR) . 

(b)  From  PACXAGE  table:  Name  of  each  of  the 
package  levels  (PXOL) . 

(c)  From  ITEM  table:  List  of  items  (DODICs) , 
their  family,  subfamily,  and  New  Materiel  Fielding  (NMF)  code 
identifiers. 

(d)  From  RESULT1  table:  Dollar  value  of  scheduled 
production  by  item,  by  package  level,  and  by  FY  for  each  record  for 
the  specified  RCN  where  the  FYs  are  equal  to  the  BFY  through  the  BFY 
♦  4  and  the  PXGL  is  equal  to  package  2  through  17. 

(e)  From  ITEM_DATA  table:  Dollar  value  for  clas¬ 
sified  items  or  for  items  which  have  no  Authorized  Acquisition 
Objective  (non-AAO)  for  each  record  for  RCN  =  0  (Baseline)  where  the 
FYs  are  equal  to  the  BFY  through  the  BFY  +  4  and  P0M_C0ST  >  0. 

c.  Processing  - 

(1)  The  user’s  ORACLE  identification  and  password, 
along  with  the  specified  RCN,  are  passed  to  the  program  on  the 
command  line. 
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(2)  Input  obtained  from  the  PJSM  ORACLE  data  base: 

(a)  From  the  REVTAB  table,  the  BFY  is  obtained 
along  with  several  other  variables  which  are  not  used  in  this 
program. 


(b)  From  the  PACKAGE  table,  the  package  name  for 
each  package  level  (PKGL)  is  obtained. 

(c)  From  the  ITEM  table,  the  list  of  items 
(DODICs) ,  their  NMF,  and  family  and  sub-family  codes  are  obtained 
and  loaded  into  ITEM_ARRAY. 

(3)  Subroutine  HSORT  is  called  where  the  items  in  the 
ITEM_ARRAY  are  sorted  alphabetically  by  DODIC  to  facilitate  the 
subsequent  use  of  a  fast  binary  search  routine. 

(4)  Build  output  array. 

(a)  Cost  Array  -  Initialize  the  C0ST_ARRAY  C 1 , J ) 
to  zeros  for  each  element,  where  I  =  19  (*  of  rows)  and  J  =  12  (*  of 
columns) .  The  odd  numbered  columns  contain  data  for  NMF  items  for 
each  FY,  with  a  summary  in  column  11.  The  even  numbered  columns 
contain  data  for  all  other  items  for  each  FY  with  a  summary  given  in 
column  12.  Rows  2  thru  17  of  the  C0ST_ARRAY  contain  data  for  pack¬ 
ages  2  thru  17,  respectively.  Row  1  contains  a  total  of  packages  2 
thru  17.  Rows  18  and  19  contain  the  total  costs  of  non-AAO  hardware 
and  projects,  respectively.  The  program  reads  and  accumulates  all 
cost  data,  storing  the  results  and  relevant  data  in  the  COST_ARRAY. 
At  the  end  of  the  program,  the  data  will  be  written  out  in  FY  and 
package  order  to  generate  the  report. 

(b)  From  PJSM  data  base,  RESULT1  table,  read  the 
item  (DODIC) ,  FY,  package  level  (PKGL)  and  dollar  value  of  scheduled 
production.  With  these  data  perform  the  following  steps  and  repeat 
for  each  record  retrieved  from  the  RESULT1  table: 

Q)  Match  the  item  (DODIC)  with  the  list  of 
items  obtained  from  step  4 . 4 1 . lc (2) (c) ,  in  order  to  obtain  the 
item's  NMF  code. 


(2)  Add  the  dollar  value  of  the  scheduled 
production  to  the  appropriate  elements  of  the  C0ST_ARRAY.  If  the 
item  was  a  NMF  item  and  the  package  level  was  3,  4,  5,  6,  or  7,  then 
the  dollar  value  would  be  added  to  the  NMF  columns;  if  not,  then  add 
the  dollar  value  to  the  columns  for  other  items.  Also  add  the 
dollar  value  to  the  yearly  totals  and  the  package  totals. 
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(c)  Convert  all  values  in  the  C0ST_ARRAY  to  mil¬ 
lions  of  dollars  (divide  each  element  by  1,000,000). 

(d)  From  PJSM  data  base,  ITEM_DATA  table,  read  the 
DODIC,  FY,  and  the  P0M_C0ST  where  POM_COST>0.  Perform  the  following 
steps  for  each  record  retrived  from  the  ITEM_DATA  table: 

i  (1.)  Look  up  the  item  (DODIC)  in  the  item 

array  obtained  in  step  5 . 42 . lc (2)  (c)  to  determine  the  item's  family 
and  sub-family  codes. 


(2)  Check  the  family  code.  All  items  that 
have  a  POMCOST  should  be  in  family  7.  Write  an  error  message  if 
the  family  code  is  not  7  and  skip  5 . 42 . lc (4) (d)  (3)  and 

5.42. lc(4) (d) (4)  below. 

(3)  If  the  family  code  equals  seven,  then 
check  the  subfamily  code  to  determine  if  the  P0M_C0ST  is  for  hard¬ 
ware  procurement  (subfamily  codes  1  or  2)  or  for  production  base 
improvement  projects  (sub-family  3). 

(4)  Add  the  POM_COST  to  the  appropriate  row 
and  column  (determined  by  FY)  in  the  COST_ARRAY. 

(5)  Write  output  report. 

(a)  Write  general  information  and  column  headings 
to  the  output  file. 

(b)  Write  the  accumulated  data  in  the  COST_ARRAY 
to  the  output  file. 

(c)  After  all  of  the  dollar  values  in  the 
COST_ARRAY  are  accumulated,  write  the  grand  totals  to  the  output 
file. 


5.42.2  Conventions.  Program  is  written  in  structured  FORTRAN  77. 

5.42.3  Verification  Procedures.  Both  the  developer  and  the  propo¬ 
nent  will  test  and  sign  off  on  any  changes. 

5.42.4  Error  Conditions.  Error  conditions  are  documented  on  the 
hard  copy  report  produced  during  each  execution. 

5.42.5  Listings.  Program  listings  contain  detailed  comments  to 
assist  in  making  program  changes  and  are  located  in  the 
<SYSSA>SAXPGM>*RPT .  A  hardcopy  of  the  source  program  is  available 
in  AMSMC-IMS-HM. 
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5.43  Program.  Compare  Program  (RPT7.F0R) 

5.43.1  Program  Description.  The  Compare  Program  is  written  in 
structured  FORTRAN  77.  Source  code  is  in  the  COMP. FOR  file.  This 
file  is  input  into  the  ORACLE  precompiler  that  builds  the  COMP.F77 
file  which,  in  turn,  is  compiled  with  the  F77  compiler  and  loaded 
with  the  BIND  utility  producing  the  executable  version  COMP. RUN. 

The  following  paragraphs  describe  the  RPT7.F0R  program: 

a.  Identification  -  Source  code  for  this  program  is  located 
in  the  COMP. FOR  file.  Its  executable  equivalent  is  COMP. RUN.  Users 
will  have  acc  .ss  to  this  program  only  through  the  JSM  Master  Menu. 

b.  Functions  -  The  RPT7.F0R  program  produces  a  report  which 
details  by  year  the  differences  in  the  Army  production  and  the 
dollar  value  of  the  Army  production  for  two  RCNs .  (All  numbers 
appear  in  thousands.) 

c.  Input  - 

(1)  Interactive:  The  user  will  enter  the  ORACLE 
identification  and  password,  baseline  RCN,  and  desired  processing 
option  as  part  of  the  command  line  Vo  prompts  will  be  initiated  by 
the  program. 

(2)  By  program: 

(a)  From  REVTAB:  Read  beginning  FY  and  number  of 
FYs  for  the  two  user-input  RCNs. 

(b)  From  ITEM:  Read  the  SSN,  FSC,  DODIC,  new 
materiel  fielding  code,  and  the  nomenclature  for  each  item. 

(c)  From  RESULT4:  Read  the  Army  production  and 
dollar  value  of  Army  production  for  each  item  by  FY  for  both  RCNs. 

(d)  From  RESULT1:  Read  the  amount  of  undelivered 
production  used;  i.e.,  package  level  =  0,  for  each  RCN  and  item  by 
FY. 


d.  Processing  - 

(1)  User  enters  ORACLE  identification  and  password. 

(2)  User  enters  desired  RCN  for  baseline. 

(3)  User  enters  desired  RCN  for  comparison. 
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(4)  Program  reads  beginning  FY  and  number  of  FYs  for 
both  RCNs  entered.  The  program  then  determines  which  years,  if  any, 
are  common  to  both  RCNs  and  can  be  used  for  comparison. 

(5)  Program  reads  ITEM  table  for  list  of  DODICs  and 
their  associated  SSNs ,  FSCs ,  NMF  codes,  and  nomenclature. 

(6)  Declare  and  open  a  cursor  that  will  return  Army 
production  and  dollar  value  of  Army  production  for  all  study  years. 

(7)  After  each  successful  return,  select  the  production 
applied  for  the  current  RCN,  DODIC,  and  FY  for  package  level  =  0 
from  IiESUIiTl.  This  value  must  be  subtracted  from  the  Army  produc¬ 
tion  return  from  RESULT4  to  account  for  the  undelivered  amounts 
embedded  in  the  RESULT4  number. 

(8)  Complete  steps  5.43. 1 d ( 6 )  and  5.43. 1  d ( 7 )  for  both 
the  baseline  RCN  and  the  alternative  RCN. 

(9)  For  each  item  do  the  following: 

(a)  For  each  year  studied,  determine  if  there  is 
ary  difference  between  the  Army  production  for  each  RCN. 

(b)  If  there  is  no  difference  in  any  year  and  only 
the  items  with  differences  are  being  printed,  then  continue  to  next 
item. 

(c)  Otherwise,  write  out  the  item  information  as 
well  as  the  baseline  production  and  the  difference  between  the  two 
RCNs'  production.  Keep  running  tally  of  dollar  values  and  differ¬ 
ences  by  FY. 

(d)  Complete  steps  5 . 43 . Id (9) (a)  to  5 . 43 . Id (9) (c) 
for  the  dollar  value  of  the  Army  production.  Keep  running  tally  of 
dollar  values  and  differences  by  FY. 

(10)  Write  out  the  totals  from  5 . 43 .  Id (9)  (d) . 

(11)  End  program. 

e.  Output  -  COMP . RCN** . VS . RCN»» 

f.  Interfaces  -  This  program  only  requires  that  the  two 
RCNs  to  be  compared  both  be  resident  in  the  RESULT4  table.  It  does 
not  require  interfaces  with  other  programs. 
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g.  Tables  -  See  Annex  B. 

5.43.2  Conventions.  This  program  was  written  with  the  convention 
that  non-array  local  variables  end  with  a  character.  This  will 
help  distinguish  them  from  similarly  named  table  columns. 

5.43.3  Verificat  ion  Procedures.  Verification  must  be  done  using 
the  ORACLE  UFI  utility  to  access  the  data  base. 

5.43.4  Error  Conditions.  Errors  encountered  will  be  documented 
in  the  program  output. 

5.43.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>iPGM 
A  hardcopy  of  the  source  program  is  available  in  AMSMC-IMS-HM. 
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5.44  Program.  Summary  of  Training  and  Test  Items  not  Achieving  100 
Percent  (RPT8 . FOR) 

5.44.1  Program  Description.  The  RPT8.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT8.F0R. 
This  file  is  an  input  to  the  ORACLE  FORTRAN  host  language  precom¬ 
piler  which  generates  an  intermediate  file  RPT8.F77.  This  file  is 
compiled  with  the  PRIME  F77  compiler,  and  the  PRIME  BIND  utility  is 
used  to  produce  an  executable  program  RPT8.RUN. 

a.  Function  -  The  PJSM  program  extracts  information  from 
the  ORACLE  data  base,  and  produces  a  report  showing  items  which  have 
a  test  and/or  training  shortfall  in  at  least  one  of  the  five  POM 
FYs . 


b.  Input  -  The  program  requires  a  valid  ORACLE  user  name 
and  password  and  a  RCN. 

All  other  data  are  obtained  from  the  ORACLE  data  base: 

(1)  From  REVTAB  table:  Beginning  FY ,  next  FY ,  training 
level  (LVTRNG) ,  and  depot  reserves  (DEPOTR) . 

(2)  From  ITEM  table:  FSC,  DODIC,  SSN,  and  item  nomen¬ 
clature  . 

(3)  From  RESULT  1  table;  DODIC,  FY,  PKGL ,  INV_APP, 
PR0D_APP,  SFALLQTY.  Only  rows  having  the  specified  RCN,  FYs 
between  BFY  and  BFY  ♦  4 ,  PKGL  of  2,  5,  or  10  and  SFALL_QTY  >  0  are 
retrieved . 

c.  Processing  - 

(1)  Selected  columns  from  the  ITEM  table  are  retrieved 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 


(2)  The  data  from  RESULT!  are  ret» laved  and  stored  in  a 
dynamic  data  structure  consisting  of  a  data  array  (PCT_FILL)  and  an 
index  array.  Each  index  entry  consists  of  a  unique  package  level/ 
DODIC  combination  followed  by  a  pointer  to  the  column  in  the  PCT_FILL 
array  which  contains  the  data  for  that  combination.  There  are  five 
rows  in  the  PCT_FILL  array  to  provide  space  for  five  FYs.  Percent 
filled  quantities  are  computed  as  100  *  (INV_APP  +  PR0D_APP)/ 

( INV_APP  +  PR0D_APP  +  SFALL_QTY) . 
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(3)  The  accumulated  data  in  the  PCT_FILL  array  are 
printed  out  in  package  level/DODIC  sequence  along  with  related 
information  from  the  ITEM_ARRAY. 

5.44.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  from  the  data  base  usually 
consist  of  the  table  column  name  with  a  character  added.  The 
name  of  the  output  file  is  RPT8.RCNx.  Where  ‘x‘  is  a  particular 

RCN  (one  or  two  digits). 

5.44.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI. 

5.44.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.44.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT8.LIS)  is 
located  in  <SYSSA>SAXPGM>*RPT.  A  hardcopy  of  the  source  program  is 
available  in  AMSMC- IMS-HM. 
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5.45  Program.  Readiness  Report  (RPT9.F0R) 

5.45.1  Program  Description.  The  RPT9.F0R  program  is  written  in 
Structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT9.F0R. 
This  file  is  an  input  to  the  ORACLE  FORTRAN  host  language  precom¬ 
piler  which  generates  an  intermediate  file  RPT9.F77  that  is  compiled 
with  the  PRIME  F77  compiler.  The  PRIME  BIND  utility  is  used  to 
produce  an  executable  program  RPT9.RUN. 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  detailed  report  that  displays 
for  each  item  the  SSN,  DODAC ,  the  use  code,  nomenclature,  and  the 
last  package  level  and  percent  filled  for  a  5-year  POM  cycle. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name,  a 
password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 

(1)  From  REVTAB  table:  Beginning  FY  where  RCN  - 
specified  RCN. 

(2)  From  ITEM  table:  FSC,  DODIC,  SSN,  use  code,  and 
item  nomenclature. 

(3)  From  PACKAGE:  Package  level,  package  name. 

(4)  From  RESULT  1 :  DODIC,  FY ,  PKGL ,  INV_APP,  PR0D_APP, 
and  SFALLQTY.  Only  rows  having  the  specified  RCN,  FY  between  BFY 
and  BFY  ♦  4,  PKGL  >  1,  type  of  ’E’  or  ’U’  and  INVAPP  )  0  are 
retrieved . 

c.  Processing  - 

(1)  Package  levels  and  corresponding  package  names  are 
extracted  from  the  PACKAGE  table  and  displayed  on  the  first  page  of 
the  report. 

(2)  Selected  columns  from  the  ITEM  table  are  retrieved 
and  stored  in  ITEMARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 
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(3)  The  data  from  the  RESULT1  table  are  retrieved  and 
stored  in  a  dynamic  data  structure  consisting  of  two  data  arrays  and 
an  index  array.  The  first  data  array  (LPF)  contains  the  last  pac¬ 
kage  level  for  which  inventory  and/or  production  was  applied  for 
each  item  and  Ff.  The  second  data  array  (PCF)  contains  the  percent 
filled  for  the  last  package  level  for  each  item  and  FY.  Each  entry 
in  the  index  array  contains  a  sequence  number,  DODIC,  and  a  pointer 
to  the  appropriate  columns  in  the  data  arrays. 

(4)  Each  column  of  accumulated  data  in  the  data  arrays 
is  printed  out  in  DODIC  sequence  along  with  related  information  from 
the  ITEM, ARRAY. 

(5)  The  HQ,  AMC  Sequence  Number  is  inserted  into  the 
first  two  bytes  of  each  index  key.  The  index  array  is  then 
resorted,  and  5.45.1 (3) (d)  is  repeated  except  now  the  items  are 
listed  in  HQ,  AMC  Sequence  Number  sequence. 

5.45.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  from  the  data  base 
usually  consist  of  the  table  column  name  with  a  character  added. 
The  name  of  the  output  file  is  RPTll.RCNx  where  ‘x‘  is  a  particular 
RCN  (one  or  two  digits)  . 

5.45.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 

5.45.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.45.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT9.LIS)  is 
located  in  <SYSSA>SAXPGM>>RPT.  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 
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5.46  Program.  Other  Service  Shortfall  Report  (RPT10.F0R) 

5.46.1  Program  Description.  The  RPT10.F0R  program  is  written  in 
structured  FORTRAN  77  with  embedded  SQL  statements.  The  source  code 
is  in  a  file  named  RPTIO.FOR.  This  file  is  an  input  to  the  ORACLE 
FORTRAN  host  language  precompiler  which  generates  an  intermediate 
file  RPT10.F77.  This  file  is  compiled  with  the  PRIME  F77  compiler 
and  the  PRIME  BIND  linker  utility  is  used  to  produce  an  executable 
program  RPT10.RUN. 

a.  Functions  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  report  showing  items  which  have 
an  Other  Service  shortfall  in  at  least  one  of  the  five  POM  FYs. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name,  a 
password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 

(1)  From  REVTAB  table:  Beginning  FY,  next  FY  (NFY) , 
training  level  (LVTRNG) ,  and  depot  reserves  (DEPOTR)  for  the 
specified  RCN. 


(2)  From  ITEM  table;  FSC,  DODIC,  SSN,  and  item  nomen¬ 


clature  . 


(3)  From  RESULT 2 ;  DODIC,  FY,  INV_APF,  PROD_APP,  and 
SFALL_QTY.  Only  rows  where  RCN  =  the  specified  RCN  and  SFALL-QTY  > 
0  are  retrieved. 

c.  Processing  - 


(1)  Selected  columns  from  the  ITEM  tables  are  retrieved 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 


(2)  The  data  from  RESULT2  are  extracted  and  stored  in  a 
dynamic  data  structure  consisting  of  three  data  arrays  (INVT_APP, 
PROD_APP,  and  SFALL_QTY)  and  an  index  array.  Each  index  entry 
contains  a  DODIC  and  a  pointer  to  the  columns  in  the  data  arrays - 
Each  data  array  has  five  rows  --  one  for  each  of  five  POM  FYs. 


(3)  Each  column  of  accumulated  data  in  the  data  arrays 
built  in  step  5.46. 1 c ( 2 )  is  printed  out  in  DODIC  sequence  along  with 
related  information  from  the  ITEM_ARRAY.  The  Total  Other  Servi^t 
requirement  is  the  sum  of  Production  applied,  Inventory  applied,  and 
shortfall  quantity.  All  quantities  are  then  converted  to  thousands 
by  dividing  by  1 ,000 . 
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5.46.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  from  the  data  base  usually 
consist  of  the  table  column  name  with  a  **'  character  added.  The 
name  of  the  output  file  is  RPTlO.RCNx  where  ‘x‘  is  a  particular  RCN 
(one  or  two  digits) . 

5.46.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 

5.46.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.46.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT10.LIS)  is 
located  in  <SYSSA)SAXPGM>iRPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 

I 

l 


w 


Tint  V»  »  p.ttp  I’M’TO’jr*^  ir»  ir«  >  *■«  ’  '  ■"  'X1 


WWtJVUlL 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


mxnu  iitisioi 

',1.  DATE  ! 

i  For  uia  of  tbis  fora, 

tee  TB  18-111;  the  proponent  a/jency  if  DCSOPS. 

:  so  lov  87  : 

!2.  PBOGBAJf  ID  !3. 

PBOGBAMAK 

1 

1 

!  5.46  : 

BPTIO.FOB 

1 

1 

',4.  BEY  M./DBTE  !5. 

DESCEIPTIOI  OP  BEYISIOI 

1 

1 

.  _  i 

Dt  nn  4792-1,  API  93  BEPLACES  DA  EBON  5752,  10Y  78,  WHICH  IS  OBSOLETE. 


5-284 


.vV» 


,VJV. 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


V 

8 

« 

f: 

J 


% 


5.47  Program.  PDIP  Package  Structure  by  Item  (RPT11.F0R) 

5.47.1  Program  Description.  The  RPT11.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named  RPT11.F0R. 
This  file  is  an  input  to  the  ORACLE  FORTRAN  host  language  precompiler 
which  generates  an  intermediate  file  RPT11.F77.  This  file  is  com¬ 
piled  with  the  PRIME  F77  compiler  and  the  PRIME  BIND  utility  is  used 
to  produce  an  executable  program  RPT11.RUN. 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  detailed  report  that  shows  the 
quantities  produced  and  the  *  value  by  item,  package  level,  and  FY. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name,  a 
password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 


(1)  From  REVTAB  table:  Beginning  FY,  next  FY  (NFY) , 
training  level  (LVTRNG) ,  and  depot  reserves  (DEPOTR)  for  specified 
RCN. 

(2)  From  ITEM  table:  FSC,  DODIC,  SSN,  SEQ ,  and  item 
nomenclature . 

(3)  From  RESULT 1  table:  DODIC,  FY,  PKGL ,  PR0D_APP.  and 
PRODDV.  Only  rows  with  the  speicifed  RCN  and  DODICs  that  do  not 
begin  with  ’x\  FY  between  BFY  and  BFY  +  4,  type  =  1 E ’  and  PR0D_APP 

)  0  are  returned. 

c.  Processing  - 

(1)  Selected  columns  from  the  ITEM  table  are  extracted 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  3earch 
routine . 


(2)  The  data  from  RESULT1  are  retrieved  and  stored  in  a 
dynamic  data  structure  consisting  of  two  data  arrays  (PROD_ARRAY  and 
COST_ARRAY)  and  an  index  array.  Each  index  entry  contains  a  concat¬ 
enated  key  consisting  of  a  sequence  number,  DODIC,  and  package  level 
followed  by  a  pointer  to  the  appropriate  columns  in  the  data  arrays. 
Each  data  array  has  five  rows  --  one  for  each  of  five  POM  fiscal 
years . 


(3)  Quantities  in  the  PROD_ARRAY  are  converted  to  thou¬ 
sands  and  each  element  in  the  COST_ARRAY  is  converted  to  millions. 
Each  column  of  accumulated  data  in  the  data  arrays  is  printed  out  in 
DODIC  sequence  along  with  related  information  from  the  ITEM_ARRAY. 
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(4)  The  HQ,  AMC  Sequence  Number  is  inserted  into  the 
first  two  bytes  of  each  index  key.  The  index  array  is  then 
resorted  and  5.47.1 (3) (c)  is  repeated  except  now  the  items  are 
listed  in  HQ,  AMC  Sequence  Number  sequence. 

5.47.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  from  the  data  base  usually 
consist  of  the  table  column  name  with  a  ‘f  character  added.  The 
name  of  the  output  files  is  RPTll.RCNx  where  ‘x‘  is  a  particular  RCN 
(one  or  two  digits) . 

5.47.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 

5.47.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.47.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT11.LIS)  is 
located  in  <SYSSA>SAXPGM>*RPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 
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5.48  Program.  PDIP  Cost  Report  (RPT12.F0R) 

5,48.1  Program  Description.  The  RPT12.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  is  in  a  file  named 
RPT12.F0R.  This  file  must  be  precompiled  u3ing  the  ORACLE  FORTRAN 
host  language  precompiler  which  replaces  the  embedded  SQL  statements 
with  calls  to  library  routines.  The  precompiler  generates  an  inter¬ 
mediate  file  RPT12.F77  which  is  compiled  with  the  PRIME  F77  compiler. 
The  PRIME  BIND  utility  is  used  to  produce  an  executable  program 
RPT 1 2 . RUN . 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  detailed  PDIP  Cost  Report. 

This  report  displays  quantities  produced  and  cost  by  package  level, 
item,  and  FY.  Subtotals  are  printed  for  each  packag  level,  non-AAO 
hardware,  non-AAO  production  base  projects,  total  non-AAC,  total 
hardware,  and  grand  totals. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name,  a 
password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 


(1)  From  REVTAB  table:  Beginning  FY,  next  FY,  training  ^ 

level  (LVTRNG) ,  and  depot  reserves  (DEPOTR)  for  specified  RCN.  ^ 

(2)  From  PACKAGE  table:  Package  level  and  package 
description.  Only  rows  where  PKGL  >  0  are  retrieved. 

(3)  From  ITEM  table:  FSC,  DODIC,  SSN,  family,  sub¬ 
family,  new  materiel  fielding  code,  and  item  nomenclature. 

(4)  From  RESULT  1  table:  DODIC,  FY,  PKGL,  PROD_APP,  and 
PROD_DV.  Only  rows  having  the  specified  RCN,  FY  between  BFY  and  BFY 
+  4,  PKGL  between  2  and  17,  and  PROD_DV  >  0  are  returned. 

(5)  From  ITEM_DATA  table:  DODIC,  FY,  and  POM  cost. 

Only  rows  having  FY  between  BFY  and  BFY  +  4,  and  RCN  :  0  or  the 
specified  RCN,  and  P0M_C0ST  >  0  are  returned.  Any  rows  returned 
where  RCN  =  specified  RCN  will  replace  the  data  returned  with  RCN  = 

0. 


c.  Processing  - 


(1) 

and  stored  in  an 


Package  names  are  extracted  from  the  PACKAGE  table 
array . 
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(2)  Selected  columns  are  obtained  from  the  ITEM  table 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 


(3)  Data  are  retrieved  from  the  RESULT1  table  and 
summed  in  a  dynamic  data  structure  consisting  of  two  data  arrays 
(COST_ARRAY  and  PR0D_ARRAY)  and  an  index  array.  Each  index  entry 
contains  package  level,  DODIC,  and  a  pointer  to  the  appropriate 
columns  in  the  data  arrays.  Each  data  array  has  five  rows  --  one 
for  each  of  the  five  FYs  in  the  POM  cycle.  For  each  row  of  data 
retrieved  from  the  RESULT1  table  the  following  steps  are  performed: 

(a)  If  the  package  level  is  3  through  7  the  item 
is  looked  up  in  the  ITEM_ARRAY  built  in  step  5.48. lc(2)  to  determine 
if  the  item  is  a  NMF  item.  If  the  item  is  a  NMF  item,  package  level 
is  set  to  1 . 


(b)  The  production  quantities  (PR0D_APP)  and 
dollar  values  (PR0D_DV)  are  added  to  the  appropriate  elements  in  the 
PR0D_ARRAY  and  the  C0ST_ARRAY,  respectively.  The  column  is 
determined  by  the  package  level/DODIC  combination  and  the  row  is 
determined  by  the  FY. 

(4)  Production  and  cost  data  accumulated  in  5.48. 1 c ( 3 ) 
are  converted  to  thousands  and  millions,  respectively. 

(5)  The  POM  cost  is  extracted  from  the  ITEMDATA  table 
and  added  to  in  the  COST_ARRAY.  A  pseudo  package  level  of  18  is 
used  if  the  sub-family  is  1  or  2,  and  19  is  used  for  sub-family  3 
(non-AAO  production  base  projects) . 

(6)  Each  column  of  data  accumulate^  in  steps  5.48. 1 c ( 3 ) 
and  5.48. lc(5)  is  printed  out  along  with  related  information  obtained 
in  steps  5.48.  led)  and  5.48.  1  c  ( 2 )  .  Form  feeds  and  headers  are 
printed  so  each  package  starts  on  a  new  page  and  to  prevent  printing 
over  page  breaks. 

5.48.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 

character  added.  The  name  of  the  output  file  is  RPT12.RCNx 
where  ‘x‘  is  a  particular  RCN  (one  or  two  digits). 

5.48.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 
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5.49  Program.  Work-years  Available  to  Increase  Plant  Utilization 
Report  (RPT13 . FOR) 

5.49.1  Program  Description.  The  RPT13.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  contains  about  1,100  lines 
including  comments  and  is  in  a  file  named  RPT13.F0R.  This  file  must 
be  precompiled  using  the  ORACLE  FORTRAN  host  language  precompiler 
which  replaces  the  embedded  SQL  statements  with  calls  to  library 
routines.  The  precompiler  generates  an  intermediate  file  RPT13.F77 
which  is  compiled  with  the  PRIME  F77  compiler.  The  PRIME  BIND 
linker  utility  is  used  to  produce  an  executable  program  RPT13.RUN. 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  a  detailed  plant  utilization 
report  for  commercial  and  each  active  Army  Ammunition  Plant.  This 
report  displays  a  summary  of  work-years  available,  workload  goal, 
actual  work-years,  and  percent  line  utilization  for  each  plant  for 
the  5-year  POM  cycle.  Additionally,  detailed  information  is 
displayed  for  each  item  which  has  remaining  requirements. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name,  a 
password,  and  a  RCN.  All  other  data  are  obtained  from  the  ORACLE 
data  base: 

(1)  From  REVTAB  table:  Beginning  FY ,  next  FY ,  training 
level  (LVTRNG) ,  and  depot  reserves  (DEPOTR)  for  specified  RCN. 

(2)  From  PLANT  table:  Plant  codes  and  plant  nanf t. 

(3)  From  STAFF  table:  Plant  code,  FY,  workload  goal, 
and  direct  labor.  Only  rows  where  FY  is  between  BFY  and  BKY  ♦  4, 
and  RCN  =  0  or  the  specified  RCN  are  returned.  The  order  by  clause 
assures  that  the  exceptional  data  (RCN  =  the  specified  data)  is 
retrieved  last  so  it  will  override  the  base  data  (RCN  =  0). 

(4)  From  ITEM  table:  FSC ,  DODIC,  SSN,  and  item 
nomenclature . 

(5)  From  ITEM_DATA  table:  DODIC,  FY,  and  unit  price. 
Only  rows  where  FY  is  between  BFY  and  BFY  ♦  4,  and  RCN  =  0  or  the 
specified  RCN  are  returned.  The  order  by  clause  assures  that  the 
exceptional  data  (RCN  =  the  specified  data)  is  retrieved  last  so  it 
will  override  the  base  data  (RCN  =  0). 

(6)  From  PRODT  table:  Plant  code,  line  number,  DODIC, 
1-8-5  production  rate,  1-8-5  direct  labor  staffing,  and  line 
availability.  Only  rows  where  AVAIL  >  0  are  retrieved. 
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(7)  From  PRODTFY  table:  Plant  code,  line  number, 
DODIC,  FY,  1-8-5  production  rate,  1-8-5  direct  labor  staffing,  and 
line  availability.  Only  rows  where  FY  is  between  BFY  and  BFY  +  4, 
and  RCN  =  0  or  the  specified  RCN  are  returned.  The  order  by  clause 
assures  that  the  exceptional  data  (RCN  =  the  specified  data)  is 
retrieved  last  so  it  will  override  the  base  data  (RCN  -  0). 

(8)  From  RESULT1  table:  DODIC,  FY ,  and  package  level. 
Only  rows  where  FY  is  between  BFY  and  BFY  ♦  4,  TYPE  =  'E',  and 
SFALL_QTY  =  0  are  retrieved. 

(9)  From  RESULT3  table:  DODIC,  FY,  and  other  customer 
production.  Only  rows  where  RCN  =  the  specified  RCN,  FY  is  between 
BFY  and  BFY  +  4,  and  PR0D_0THER  >  0  are  retrieved. 

(10)  From  RESULT4  table:  DODIC,  FY,  Army  production, 
other  customer  shortfall  quantity,  and  Army  shortfall  quantity. 

Only  rows  where  RCN  =  the  specified  RCN,  FY  is  between  BFY  and  BFY  + 
4,  TYPE  =  'E',  are  retrieved. 

(11)  From  RESULT6  table:  FY,  plant  code,  line  number, 
work-years,  and  percent  line  utilization.  Only  rows  where  RCN  =  the 
specified  RCN,  and  FY  is  between  BFY  and  BFY  +  4  and  total  shortfall 
>  0  are  retrieved. 


c.  Processing  - 

(1)  Plant  codes  and  names  are  extracted  from  the  PLANT 
table  and  stored  in  arrays.  A  cross  reference  array  is  built  which 
is  subsequently  used  to  convert  plant  codes  into  plant  numbers. 
Plant  numbers  are  assigned  in  a  manner  that  assures  that  the  plant 
names  will  be  in  alphabetical  order  on  the  output  report. 


(2)  Data  are  obtained  from  the  STAFF  table  and  stored 
in  two  data  arrays  --  GOALS  and  DIRECT.  GOALS  is  the  percent  of 
direct  labor  which  should  be  achieved  to  balance  workload.  Array 
DIRECT  contains  the  number  of  direct  labor  employees  by  plant  and 
FY . 

(3)  Selected  columns  are  extracted  from  the  ITEM  table 
and  stored  in  an  array  --  ITEM_ARRAY.  This  array  is  sorted  in 
ascending  DODIC  sequence  to  facilitate  the  subsequent  use  of  a  fast 
binary  search  routine. 


9. 


(4)  Unit  price  data  are  retrieved  from  the  ITEMDATA 
table  and  stored  in  an  array.  Data  in  this  array  are  organized  by 
DODIC  and  FY.  Unit  prices  are  used  to  compute  the  remaining 
requirement  or  capacity  dollar  value. 


5-293 


v  vv.v 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


5 

V 

si 

> 

% 


(5)  Selected  columns  are  obtained  from  the  PRODT  table 
and  stored  in  an  array  --  PD_ARRAY. 

(6)  FY  plus  the  same  columns  selected  in  5.49.  lb (5 )  are 
retrieved  from  the  PR0DT_FY  table  and  stored  in  the  PD_ARRAY. 

(7)  The  PD_ARRAY  is  sorted  so  that  the  exceptional  data 
from  PR0DT_FY  immediately  follows  the  base  data  from  the  PRODT 
table.  This  is  accomplished  by  making  FY  the  last  part  of  the  sort 
key  and  setting  FY  to  zero  for  the  data  from  the  PRODT  table. 

(8)  The  RESULT1  table  is  extracted  to  get  the  last 
package  filled  for  each  DODIC  and  FY. 

(9)  Other  customer  production  is  retrieved  from  the 
RESULT3  table  and  stored  in  an  array  by  DODIC  and  FY. 

(10)  The  RE  ,’ULT4  table  is  obtained  to  get  Army 
production,  other  customer  shortfall,  and  Army  shortfall  data  for 
each  DODIC  and  FY. 

(11)  Table  RESULT6  is  extracted  to  get  total  work-years 
for  each  plant  and  percent  line  utilization  for  each  line. 

(12)  The  information  for  each  plant  in  the  PD^ARRAY 
obtained  in  steps  5.49. 1  c  ( 5 )  to  5.49.  lc(7)  is  printed  out  along  with 
related  data  obtained  in  steps  5.49. lc(l),  5.49.1c(2),  and  5 . 49 . 1 c ( 1 1 ) . 
Percent  plant  utilization  is  computed  as  100  *  work-years/direct 
labor  staffing  at  plant. 

(13)  Detailed  information  is  printed  for  each  line/ 

DODIC  combination  in  the  PD_ARRAY  where  there  is  an  unfilled 
requirement.  Some  of  the  quantities  printed  in  this  part  of  the 
report  are  computed  in  the  program  using  the  following  formulas: 

(a)  Remaining  Capacity  =  ((Line  Availability  * 

100  -  Percent  Line  Utilization)  *  1-8-5  Production  Rate  *  12)  /  100. 

(b)  Remaining  Requirement  or  Capacity  #  Vi.ue  = 

Mi  nimum  (Army  Shortfall  +  Other  Service  Shortfall,  Remaining 
Capacity)  *  Unit  Price  /  1000000. 

(c)  Work-years  Required  to  Produce  =  Minimum 
(Army  Shortfall  +  Other  Service  Shortfall,  Remaining  Capacity)  * 

1-8-5  Staffing  /  (1-8-5  Production  Rate  *  12). 

(14)  Form  feeds  and  headers  are  printed  so  each  plant 
starts  on  a  new  page  and  to  prevent  printing  over  page  breaks. 
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5.49.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 
■*'  character  added.  The  name  of  the  output  file  is  RPT13.RCNx 
where  'x'  is  a  particular  RCN  (one  or  two  digits) . 

5.49.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI. 

5.49.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.49.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT13.LIS)  is 
located  in  <SYSSA>SAXPGM>$RPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 


5? 
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5.50  Program.  Secondary  Item  Status  Report  (RPT14.F0R) 

5.50.1  Program  Description.  The  Secondary  Item  Status  Report 
program  is  written  in  structured  FORTRAN  77.  Source  code  can  be 
found  in  the  RPT14.F0R  file  which  is  input  to  the  ORACLE  precompiler 
that  creates  the  RPT14.F77  file.  This  file  in  turn  is  compiled  with 
the  F77  compiler  and  then  loaded  using  the  BIND  utility.  The 
executable  file  will  be  named  RPT14.RUN.  The  following  paragraphs 
describe  the  RPT14.F0R  program: 

a.  Identification  -  Source  code  for  this  program  is  located 
in  a  file  called  RPT14.F0R.  Its  executab’e  equivalent  is  RPT14.RUN. 
Users  will  have  access  to  this  program  only  through  the  JSM  Master 
Menu. 

b.  Functions  -  The  RPT14.F0R  program  produces  the  Secondary 
Item  Status  Report  which  is  a  detailed  listing  of  requirements  for 
secondary  components  by  FY  and  by  end  item  or  primary  component. 

Also  included  is  beginning  asset  posture,  production  data,  and 
shortfall  information  by  year  for  the  component. 

c.  Input  - 

(1)  Interactive:  The  menu  will  pass  the  user  ID, 
password,  and  RCN  to  the  program  in  the  command  line. 

(2)  By  program: 

(a)  From  REVTAB  table:  Beginning  FY  and  number  of 

FYs . 

(b)  From  REASON_CODE  table:  Read  list  of  reason 
codes  and  description. 

(c)  From  ICT  table:  Read  list  of  distinct  secondary 
components,  DODIC,  and  procurement  factors. 

(d)  From  RESULT4  table:  Read  Army  inventory 
applied  to  support  test  and  training,  and  ending  asset  for  the  end 
item  or  primary  component  by  FY.  Also  read  inventory  applied  to 
test  and  training,  ending  assets,  shortfall  for  t  -*  and  training, 
shortfall  for  days  of  supply,  and  production  amount  »  -  secondary 

i  tern. 

(e)  From  RESULTS  table:  Read  Army  production  to 
support  test  and  training  by  FY  for  end  items  and  primary  compo¬ 
nents.  Also  read  production  for  test  and  training  for  secondary 
components . 
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(f)  From  ITEM  table:  Read  nomenclature. 

(g)  From  RESULT1  table;  Read  reason  code  for 
shortfall  associated  with  secondary  component,  by  FY. 

(h)  From  RAMP_ITEM:  Read  ending  assets  for 
secondary  component  for  year  =  beginning  FY  minus  1. 

d.  Processing  -  The  following  paragraphs  describe  the 
processing  sequence: 

(1)  User  enters  ORACLE  information  and  password. 

(2)  User  enters  desired  RCN. 

(3)  Read  REVTAB  for  beginning  FY  and  number  of  FYs  and 
write  to  screen. 

(4)  Read  REAS0N_C0DE  table  for  list  of  reason  codes  and 
descriptions . 

(5)  Read  ICT  table  for  list  of  distinct  secondary 
components  and  their  procurement  factors. 

(6)  For  each  secondary  component: 

(a)  Read  the  nomenclature  from  the  ITEM  table. 

(b)  Declare  and  open  a  cursor  that  will  return 
from  ICT  table  each  and  item  and  primary  component  that  employs  the 
current  secondary  component. 

(c)  For  each  DODIC  selected  with  this  cursor,  do 

the  following: 

(1)  From  RESULT4:  Read  the  Army  inventory 
applied  to  test  and  training,  and  end  assets,  both  by  FY. 

(2)  From  RESULT3:  Read  the  Army  production 
applied  to  test  and  training  by  FY. 
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(3)  Write  the  DODIC,  the  sum  of  Army 
inventory  and  Army  production  applied  to  test  and  training,  and 
ending  assets,  both  by  year,  to  the  output  report.  In  addition, 
apply  the  components  procurement  factor  to  the  two  previous  values 
to  compute  the  requirement  of  component  to  support  test  and  train¬ 
ing,  and  the  ending  asset  posture  of  the  component,  both  by  year. 
Write  these  values  to  the  output  report.  Also  keep  a  cumulative 
total  of  test  and  training  support  and  ending  assets  across  end 
items  and  primary  components. 


(4)  Loop  to  next  end  item  or  primary  compo¬ 


nent  . 


(d)  Write  the  totals  for  the  accumulated  test  and 
training  losses,  and  ending  asset  with  the  applied  procurement 
factor,  by  year. 

(e)  Read  RESULT4  for  the  Army  inventory  applied  to 
test  and  training,  ending  assets,  shortfall  for  test  and  training, 
shortfall  for  Army  days  of  supply  and  Army  production,  by  FY. 

(f)  Read  RESULT3  for  Army  production  to  support 
test  and  training  by  FY. 

(g)  Read  RESULT1  for  first  non-zero  reason  code. 

(h)  Read  RAMP_ITEM  table  for  ending  assets  for 
FY  =  beginning  FY  minus  1. 

(i)  Beginning  asset  posture  for  beginning  FY  plus 
1  and  beyond  will  be  equal  to  the  previous  year’s  ending  assets. 

(j)  Write  the  component  data  to  the  output  by 


(k)  The  first  page  will  list  valid  reason  codes 


and  descriptions. 


(1)  Loop  to  next  component. 

(7)  Close  report,  end  program, 
e.  Output  -  Secondary  Item  Status  Report. 


f.  Interfaces  -  This  program  requires  no  interfacing  with 
any  other  program.  Users  can  access  this  program  at  any  time  but 
only  through  the  JSM  Master  Menu. 
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g.  Tables  -  See  Annex  B. 

5.50.2  Conventions.  This  program  was  written  with  the  convention 
that  all  local  variables  will  end  with  a  character.  This  will 
help  to  distinguish  from  similarly  names  table  columns.  In 
addition,  the  output  needs  no  special  format  controls  when  spooled. 
The  output  will  signal  the  printer  so  that  format  controls  are 
recognized.  This  program  also  does  not  prompt  for  user  ID, 
password,  or  RCN  because  they  are  entered  as  part  of  the  command 
line  to  initiate  the  program. 

5.50.3  Verification.  Verification  will  be  done  using  the  ORACLE 
UFI  utility  to  access  the  data  base. 

5.50.4  Error  Conditions.  Errors  will  be  listed  in  the  COMO  file 
produced  at  each  execution  of  the  program. 

5.50.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>*PGM. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.51  Program.  Summary  of  Package  Requirement/Filled  (RPT15.F0R) 

5.S1.1  Program  Description.  The  Summary  of  Package  Requirement/ 
Filled  Report  is  written  in  structured  FORTRAN  77.  Source  code  is 
found  in  the  RPT15.F0R  file  which  is  input  to  the  ORACLE  precompiler 
that  builds  the  RPT15.F77  file.  This  file  is  compiled  with  the  F77 
compiler  and  loaded  using  the  BIND  utility  which  builds  the  execut¬ 
able  program  RPT15.RUN.  The  following  paragraphs  describe  the 
RPT15.F0R  program: 

a.  Identification  -  Source  code  for  the  program  is  found  in 
the  RPT15.F0R  file.  Its  executable  equivalent  is  RPT15.RUN.  Users 
will  have  access  to  this  program  only  through  the  JSM  Master  Menu. 

b.  Functions  -  RPT15.F0R  is  a  summary  report  of  number  of 
items  with  requirements  versus  those  not  filled,  by  package,  for  all 
items  and  also  a  separate  summary  for  New  Materiel  Items  only. 
Included  in  the  latter  is  a  list  of  items  not  filled,  broken  out  by 
year . 

c.  Input  - 

(1)  Interactive:  The  user  enters  his  ORACLE  identifi¬ 
cation,  password,  and  RCN  as  part  of  the  command  line  -  no  prompts 
are  used. 


(2) 

By  Program: 

(a) 

From  REVTAB:  Read 

beginning  FY  and  number 

of 

FYs. 

(b) 

From  PACKAGE  table 

Read  list  of  package 

levels 

and  names . 

(c) 

materiel  fielding 

Form  ITEM  table: 
code. 

Read  list  of  DODICs  and 

their  new 

(d)  From  RESULT1  table:  Read  the  shortfall  by  DODIC, 
FY,  and  package  level. 


d.  Processing  - 

(1)  Read  beginning  FY  and  number  of  FYs  from  REVTAB. 

(2)  Read  list  of  packages  and  package  descriptions  from 
PACKAGE  table. 
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(3)  Read  list  of  DODICs  and  their  new  materiel  fielding 
code  from  ITEM  table. 

(4)  Read  the  RESULT  1  table  for  shortfalls  by  DODIC,  FY, 
and  package  level. 

(a)  Keep  track  of  the  number  of  items  read  by  package 

and  year . 

(b)  If  there  is  a  shortfall,  keep  track  of  this  number 
also  by  package  and  FY. 

(c)  If  the  item  is  a  new  materiel  item,  keep  track  of 
this  number  separately  from  the  others. 

(d)  Also,  if  the  new  materiel  item  has  a  shortfall, 
keep  a  running  total  of  this  number  by  package  level  and  FY. 

(e)  If  the  item  is  a  new  materiel  item  and  it  has  a 
shortfall,  add  this  item  to  a  list  of  new  materiel  fielding  items 
that  will  be  output  last.  This  list  is  by  year. 

(f)  Read  through  the  RESULT  1  table, 

y . 

**  (5)  Write  the  summary  for  all  items,  the  number  of 

items  with  a  requirement  and  the  number  of  items  with  a  shortfall  by 
package  level  and  FY. 

(6)  Give  column  totals  in  each  case. 

(7)  Produce  a  similar  summary  for  new  materiel  fielding 
items,  but  only  for  package  levels  3  through  7.  Also,  provide 
column  totals. 

(8)  For  new  materiel  fielding  items,  write  out  the  list 
of  items  with  shortfalls  in  package  levels  3  through  17,  by  FY. 

(9)  Close  report,  end  program. 

e.  Output  -  RPT15.RCN«« 

f.  Interfaces  -  This  program  can  be  run  any  time  after  the 
RESULT1  table  has  been  loaded.  No  interface  with  any  other  program 
is  required. 

g.  Tables  -  See  Annex  B. 
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5.51.2  Conventions.  This  program  was  written  with  the  convention 
that  all  local  variables  end  with  a  '*'  character  to  distinguish 
them  from  similarly  named  table  columns.  Also,  no  format  control  is 
required  when  output  is  spooled.  The  report  will  signal  the  printer 
to  recognize  the  format  controls. 

This  program  does  not  prompt  for  user  identification,  password,  or 
RCN.  This  information  is  entered  as  part  of  the  command  line  to 
initiate  the  program. 

5.51.3  Verification  Procedures.  Verification  must  be  done  using 
the  ORACLE  UFI  utility  to  access  the  data  base. 

5.51.4  Error  Conditions.  All  errors  will  be  documented  in  the  COMO 
file  produced  at  each  execution  of  the  program. 

5.51.5  Listings.  Program  listing  is  located  in  (SYSSA>PGM>$PGM. 

A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.52  Program.  Conventional  Ammunition  Acquisition  Plan  (RPT16.F0R) 

5.52.1  Program  Description.  The  RPT16.F0R  program  is  written  in 
structured  FORTRAN  77.  The  source  code  contains  about  710  lines 
including  comments  and  is  in  a  file  named  RPT16.F0R.  This  file  must 
be  precompiled  using  the  ORACLE  FORTRAN  host  language  precompiler 
which  replaces  embedded  SQL  statements  with  calls  to  library  routines. 
The  precompiler  generates  an  intermediate  file  RPT16.F77  which  is 
compiled  with  the  PRIME  F77  compiler.  The  PRIME  BIND  linker  utility 
is  used  to  produce  an  executable  program  RPT16.RUN. 

a.  Function  -  The  program  extracts  information  from  the 
PJSM  ORACLE  data  base  and  produces  the  Conventional  Ammunition 
Acquisition  Report  for  both  Army  and  other  customers.  This  report 
displays  quantities  and  dollar  values  by  family,  item,  and  customer 
for  the  5-year  POM  cycle  plus  two  RAMP  years.  Subtotals  are  printed 
for  each  family,  non-AAO  hardware,  non-AAO  production  base  projects, 
total  non-AAO,  total  hardware,  and  grand  totals. 

b.  Input  -  The  program  requires  a  valid  ORACLE  user  name, 
a  password,  and  a  RCN .  All  other  data  are  obtained  from  the  ORACLE 
data  base: 

(1)  From  REVTAB  table:  Beginning  FY,  next  FY,  training 
level  (LVTRNG) ,  and  depot  reserves  (DEPOTR)  where  RCN  =  specified 
RCN. 

(2)  From  FAMILY  table:  Family  names  and  family  where 
sub-family  >  0. 

(3)  From  ITEM  table:  FSC ;  DODIC;  SSN;  HQ,  AMC  SEQ; 
family:  sub-family;  and  item  nomenclature. 

(4)  From  RESULT1  table:  DODIC,  FY ,  Army  production, 
and  dollar  value.  Only  rows  where  RCN  =  specified  RCN,  FY  is 
between  BFY  and  BFY  +  4,  TYPE  -  ’E’,  and  PRODDV  >  0  are  retrieved. 

(5)  From  RESULT2  table:  DODIC,  FY,  service  code,  pro¬ 
duction  quantity,  and  dollar  value.  Only  rows  where  RCN  =  specified 
RCN,  FY  is  between  BFY  and  BFY  +  4,  and  PRODDV  >  0  are  retrieved. 

(6)  From  RAMP_ITEM  table:  DODIC,  FY ,  Army  buy  quanti¬ 
ty,  and  dollar  value.  Only  rows  where  FY  is  between  BFY  -  2  and  BFY 
-  1,  and  DV_ARMY  >  0  are  retrieved. 

(7)  From  ITEM_  >ATA  table:  DODIC,  FY ,  and  POM  cost. 

Only  rows  where  RCN  -  0,  FY  is  between  BFY  -  2  and  BFY  +  4,  and 
P0M_C0ST  >  0  are  retrieved. 
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c.  Processing  - 

(1)  Family  names  are  obtained  from  the  FAMILY  table  and 
stored  in  an  array. 

(2)  Selected  columns  are  retrieved  from  the  ITEM  table 
and  stored  in  ITEM_ARRAY.  This  array  is  sorted  in  ascending  DODIC 
sequence  to  facilitate  the  subsequent  use  of  a  fast  binary  search 
routine . 

(3)  Data  are  extracted  from  the  RESULT1  table  and 
stored  in  a  dynamic  data  structure  consisting  of  two  data  arrays 
(PROD_ARRAY  and  COST_ARRAY)  and  an  index  array.  Each  index  entry 
consists  of  the  family,  sub-family,  DODIC,  customer  code,  and  a 
pointer  to  the  appropriate  columns  in  the  data  array.  Each  data 
array  has  seven  rows  to  provide  space  for  five  POM  years  plus  two 
RAMP  years . 


(4)  Other  customer  production  and  dollar  value  data  are 
obtained  from  the  RESULT2  table  and  stored  in  the  same  data  struc¬ 
ture  described  in  5.52. 1 c ( 3 ) . 

(5)  RAMP  data  for  Army  only  are  extracted  from  the 
RAMPITEM  table  and  added  to  the  same  data  structure  described  in 
5.52. lc (3) . 


(6)  Quantities  and  cost  data  are  converted  to  thousands 
and  millions,  respectively. 

(7)  POM  cost  data  for  Army  only  are  retrieved  from  the 
ITEM_DATA  table  and  added  to  the  same  data  structure  described  in 
5.52. lc ( 3) . 

(8)  Each  column  of  accumulated  data  obtained  in  steps 
3.52.1c(3),  5.52. lc(4)  ,  5.52.  lc(5) ,  and  5.52. 1 c ( 7 )  is  printed  out 
along  with  related  data  from  the  ITEM_ARRAY.  Form  feeds  and  headers 
are  printed  So  each  family  starts  on  a  new  page  and  to  prevent 
printing  over  page  breaks. 

(9)  In  each  index  entry,  the  HQ,  AMC  SEQ  is  inserted 
into  the  first  two  bytes  replacing  the  family/sub-family  numbers. 

The  index  is  resorted  and  5.52. lc(8)  is  repeated  except  the  items 
are  now  printed  in  HQ,  AMC  SEQ  sequence. 
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5.52.2  Conventions.  The  program  is  written  in  structured  FORTRAN 
77.  Program  variables  that  receive  values  directly  from  the  data 
base  usually  consist  of  the  corresponding  table  column  name  with  a 

character  added.  The  name  of  the  output  file  is  RPT16.RCNx 
where  "x"  is  a  particular  RCN  (one  or  two  digits) . 

5.52.3  Verification  Procedures.  The  program  can  be  verified  by 
spot  checking  some  of  the  output  against  values  manually  retrieved 
from  the  data  base  using  the  ORACLE  UFI . 

5.52.4  Error  Conditions.  Error  messages  will  be  printed  in  the 
output  file. 

5.52.5  Listings.  The  program  listing  contains  comments  to  assist 
in  making  program  changes.  The  program  listing  (RPT16.LIS)  is 
located  in  <SYSSA>SAXPGM>ARPT .  A  hardcopy  of  the  source  program  is 
available  in  AMSMC-IMS-HM. 
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pkgum  snisioi 

For  me  of  this  ton,  tee  TB  18-111;  tha  proponent  a<ency 


is  DCSOPS . 


DATE 

30  lov  87 


PROGRAM  ID 
5,52 _ 

BE?  mo./date 


PROGRAM  IAME 
BPT16.F0B 


DESCRIPTION  OF  BETISIOI 


DA  FOBM  4752-1,  APB  83 


REPLACES  DA  FROM  5752,  107  78,  WHICH  IS  OBSOLETE. 
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5.53  Program.  Army  Requirement  Allocation  Output  Screen 
(RESULT  1 . IMP) 

5.53.1  Program  Description.  The  Army  Requirement  Allocation  screen 
is  written  using  ORACLE  1AF.  An  ORACLE  process  called  IAG  is  used 
to  create  the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is 
utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  4.  Review  Output  Data, 
then  option  1,  Screens  for  Reviewing  Output  Data,  and  finally  as 
option  1 . 

a.  Identification  -  The  source  code  for  the  Army  Requirement 
Allocation  screen  is  identified  by  a  file  labeled  RESULT1.INP. 

After  being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
RESULT  1 .FRM,  both  located  in  SAXPGM)*INP. 

b.  Functions  -  The  output  screen,  Army  Requirement  Alloca¬ 
tion,  retrieves  item  information  from  three  PJSM  data  base  tables 
titled  ITEM,  REVTAB,  and  RESULT1.  The  purpose  of  this  screen  is  for 
reviewing  the  Army  production  from  various  specified  PJSM  runs. 

None  of  the  information  that  appears  on  this  screen  can  be  updated, 
inserted,  or  deleted  through  this  screen. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base: 

(a)  From  ITEM  table: 

(U  FSC - CHARACTER  (4)  . 

(2)  DODIC  ---  CHARACTER  (4) . 

(3)  SSN  ---  CHARACTER  (6) . 

(4)  Nomenclature  -  CHARACTER  (48) . 

(b)  From  REVTAB  table: 

m  RCN  ---  INTEGER  (2) . 

(2)  Title  of  PJSM  Run  (REMARKS)  ---  CHARACTfch  v 
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(c)  From  RESULT1  table: 

m  FY  ---  INTEGER  (2) . 

(2)  Package  Level  (PKGL)  —  INTEGER  (2). 

(3)  Army  Inventory  Applied  (INV_APP)  - 

INTEGER  (10). 

(4)  Dollar  Value  of  Army  Inventory  (INV_DV)  — 

INTEGER  (10). 

(5)  Army  Production  Applied  (PROD  APP)  - 

INTEGER  (10). 

(6)  Dollar  Value  of  Army  Production  (PROD  DV) 

INTEGER  (10). 

(7)  Work-Years  Used  ( WRKYRS )  ---  NUMBER  (F7.2) 

(8)  Percent  of  Line  Used  (PCT  LINE)  --- 

NUMBER  (F7.2). 

(9)  Shortfall  Quantity  (SFALL_QTY)  --- 

INTEGER  (10) . 

( 10)  Reason  Code  for  Shortfall  (RC)  - 

CHARACTER  (1). 

d.  Processing  - 

(1)  The  Army  Requirement  Allocation  screen  incorporates 
a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC .  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 

(b)  The  second  block,  which  relates  to  the  REVTAB 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
RCN.  This  means  the  data  will  be  displayed  in  ascending  order  by 
RCN. 
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(c)  The  third  block,  which  relates  to  the  RESULT1 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
FY.  The  data,  which  relate  to  the  DODIC  in  block  1  and  the  RCN  in 
block  2,  will  be  displayed  in  order  of  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Army 
Requirement  Allocation  screen. 

(4)  From  PJSM  data  base  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  which  is  designed  for  the  user  to  select  which 
PJSM  run  they  wish  to  review  results  from.  The  information  in  block 

2  is  retrieved  from  the  REVTAB  table. 

(6)  After  values  are  displayed  in  block  1  and  2,  a 
query  is  executed  on  block  3  with  the  tie  between  the  three  blocks 
being  the  DODIC  of  the  item  and  the  RCN.  The  information  in  block 

3  is  retrieved  from  the  RESULT1  table. 

(7)  Certain  rules  will  not  allow  the  user  to  delete, 
insert,  or  update  general  item  information,  RCN  information,  or  any 
output  results.  These  rules  include  the  use  of  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  field 
prompt . 

e.  Output  -  Filled  screen  (see  figure  5.53.1-1). 

f.  Security  -  The  Army  Requirement  Allocation  screen  dis¬ 
plays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  System 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  U3ed  in  the  majority  of  the  output  screens. 


5-312 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


Ariy  Requirement  Allocation 
FSC:  1320  DODIC:  0505  SSI:  E26900 

loaenclature:  PBOJ  155HI  ILLtJM  H485  SERIES  I/O  FOZE 

SCI  Version 


RCI: 

11 

Title: 

MARCH  15  PRES.  BUDGET 

Ar«y  Inventory 

Arey  Production 

lork 

Percent 

Shortfall 

FT 

Pk 

Applied  Dollars 

Applied 

Dollars 

Years 

of  Line 

Quantity 

RC 

86 

2 

0 

0 

1 

229 

.3 

0 

0 

U 

88 

3 

9 

2064 

0 

0 

0 

0 

0 

U 

88 

5 

0 

0 

37 

8484 

10.96 

0 

0 

D 

88 

7 

37 

8484 

0 

0 

0 

0 

0 

U 

88 

B 

25 

5732 

0 

0 

0 

0 

0 

U 

88 

9 

23 

5274 

0 

0 

0 

0 

0 

U 

88 

13 

28 

6420 

8 

1834 

2.37 

0 

0 

U 

Figure  5.53,1-1.  Example  of  Army  Requirement  Allocation  Output 
Screen  Filled  with  Information 
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(2)  REVTAB  -  contains  important  information  regarding 
rules  the  PJSM  will  use  for  a  model  run. 

(3)  RESULT1  -  contains  output  results  from  a  PJSM  model 
run.  This  table  stores  the  output  that  is  associated  with  the  Army 
requirements . 

5.53.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.53.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.53.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.53.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.54  Program.  Other  Customer  Requirement  Allocation  Output  Screen 
(RESULT2 . INP) 

5.54.1  Program  Description.  The  Other  Customer  requirement  Alloca¬ 
tion  screen  is  written  using  ORACLE  IAF.  An  ORACLE  process  called 
IAQ  is  used  to  create  the  form  necessary  to  produce  a  screen.  The 
ORACLE  IAP  is  utilized  to  convert  the  coding  into  a  screen.  This 
screen  is  located  on  the  PJSM  Master  Menu  under  option  4,  Review 
Output  Data,  then  option  1,  Screens  for  Reviewing  Output  Data,  and 
finally  as  option  2. 

a.  Identification  -  The  source  code  for  the  Other  Customer 
Requirement  Allocation  screen  is  identified  by  a  file  labeled 
RESULT2.INP.  After  being  compiled  through  ORACLE  IAG,  a  run  file  is 
created  named  RESULT2 . FRM,  both  located  in  SAXPGM>*INP. 

b.  Functions  -  The  output  screen,  Other  Customer  Require¬ 
ment  Allocation,  retrieves  item  information  from  three  PJSM  data 
base  tables  titled  ITEM,  REVTAB,  and  RESULT2.  The  purpose  of  this 
screen  is  for  reviewing  the  other  customer  production  from  various 
specified  PJSM  runs.  None  of  the  information  that  appears  on  this 
screen  can  be  updated,  inserted,  or  deleted  through  this  screen. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(21  From  data  base: 

(a)  From  ITEM  table: 

U)  FSC  ---  CHARACTER  (4). 

(2)  DODIC  ---  CHARACTER  (4) . 

(3)  SSN  ---  CHARACTER  (6) . 

(4)  Nomenclature  -  CHARACTER  (48) . 

(b)  From  REVTAB  table: 

(1)  RCN  ---  INTEGER  (2) . 


(2)  Title  of  PJSM  Run  (REMARKS) 


CHARACTER  (40). 
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(c) 

From 

RESULT2  table: 

m 

FY  ---  INTEGER  (2). 

CHARACTER  (2). 

(2) 

Other  Customer  (SERVICE)  - 

INTEGER  (10). 

(3) 

Army  Inventory  Applied  (INV_APP)  - 

INTEGER  (10). 

(4) 

Dollar  Value  of  Inventory  (INV_DV)  - 

INTEGER  (10). 

(5) 

Army  Production  Applied  (PR0D_APP)  - 

INTEGER  (10). 

(6) 

Dollar  Value  of  Army  Production  (PR0D_DV)  - 

(7) 

t 

Work-Years  Used  (WRKYRS)  ---  NUMBER  (F7.2). 

NUMBER  (F7.2). 

(8) 

Percent  of  Line  Used  (PCT_LINE)  - 

INTEGER  (10). 

(9) 

Shortfall  Quantity  (SFALLQTY)  --- 

CHARACTER  ( 1 ) . 

(10) 

Reason  Code  for  Shortfall  (RC)  - 

d.  Processing  - 

(1) 

The 

Other 

Customer  Requirement  Allocation  screen 

incorporates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 

(b)  The  second  block,  which  relates  to  the  REVTAB 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
RCN.  This  means  the  data  will  be  displayed  in  ascending  order  by 
RCN. 
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(c)  The  third  block,  which  relates  to  the  RESULT2 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
FY  then  service.  The  data,  which  relate  to  the  DODIC  in  block  l  and 
the  RCN  in  block  2,  will  be  displayed  in  order  of  FY  and  service. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Other 
Customer  Requirement  Allocation  screen. 

(4)  From  PJSM  data  base  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  which  is  designed  for  the  user  to  select  which 
PJSM  run  they  wish  to  review  results  from.  The  information  in  block 

2  is  retrieved  from  the  REVTAB  table. 

(6)  After  values  are  displayed  in  block  1  and  2.  a 
query  is  executed  on  block  3  with  the  tie  between  the  three  blocks 
being  the  DODIC  of  the  item  and  the  RCN.  The  information  in  block 

3  is  retrieved  from  the  RESULT2  table. 

(7)  Certain  rules  will  not  allow  the  user  to  delete, 
insert,  or  update  general  item  information,  RCN  information,  or  any 
output  results.  These  rules  include  the  use  of  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  field 
prompt . 

e.  Output  -  billed  screen  (see  figure  5.54.1-1). 

f.  Security  -  The  Other  Customer  Requirement  Allocation 
screen  displays  information  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  System 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  output  screens. 
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Other  Customer  Requirement  Allocation 
FSC:  1320  DODIC:  D505  SSM:  K26900 

lottnclature:  PBOJ  155*  ILLOM  W85  SERIES  V/0  FUZE 

RCI  Version 


RCI:  11 

Title: 

MARCH  15  PRES.  BUDGET 

Inventory 

Production 

•ork 

Percent 

Shortfall 

FT  Sv 

Applied  Dollars 

Applied  Dollars 

Tears 

of  Line 

Quantity 

RC 

88  OT 

0 

0 

12000  2751474 

3.56 

0 

0 

0 

90  OT 

0 

0 

12000  3102600 

3.56 

0 

0 

0 

91  OT 

0 

0 

12000  3173879 

3.58 

0 

0 

0 

92  OT 

0 

0 

12000  3246839 

3.56 

0 

0 

0 

93  OT 

0 

0 

12000  3246839 

3.56 

0 

0 

0 

Figure  5.54.1-1.  Example  of  Other  Customer  Requirement  Allocation 
Output  Screen  Filled  with  Information 
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(2)  REVTAB  -  contains  important  information  regarding 
rules  the  PJSM  will  use  for  a  model  run. 

(3)  RESULT2  -  contains  output  results  from  a  PJSM  model 
run.  This  table  stores  the  output  that  is  associated  with  the  other 
customer  requirements. 

5.54.2  Conventions . 


a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.54.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.54.4  F~ror  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  acces.-:  to  that  table. 

5.54.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP. 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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program  misioi  :i.  date 

for  use  of  this  fora,  see  TB  18-111;  the  proponent  agency  is  DCS0PS.  !  30  lov  87  : 

2.  PROGRAM  ID 

5.54 

3.  PROGRAM  1AME 

RES0LT2 . IMP 

4.  REV  10. /DATE 

5.  DESCRIPTION  OF  REVISIOI 

DA  FORM  47J2-I,  IP1  83  REPLACES  DA  FROM  5752,  IOT  76,  WHICH  IS  OBSOLETE. 
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5.55  Program.  Production  Summary  Output  Screen  (RESULT3 . INP) 

5.55.1  Program  Description.  The  Production  Summary  screen  is  writ¬ 
ten  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to 
create  the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is 
utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  4,  Review  Output  Data, 
then  option  1,  Screens  for  Reviewing  Output  Data,  and  finally  as 
option  3. 

a.  Identification  -  The  source  code  for  the  Production 
Summary  screen  is  identified  by  a  file  labeled  RESULT3.INP.  After 
being  compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
RESULTS . FRM,  both  located  in  SAXPGMiSINP. 

b.  Functions  -  The  output  screen,  Production  Summary, 
retrieves  item  information  from  three  PJSM  data  base  tables  titled 
ITEM,  REVTAB,  and  RESULT3.  The  purpose  of  this  screen  is  for 
reviewing  the  total  production  from  various  specified  PJSM  runs. 

None  of  the  information  that  appears  on  this  screen  can  be  updated, 
inserted,  or  deleted  through  this  screen. 

c.  Input  -  ^ 

V 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base : 

(a)  From  ITEM  table: 

m  FSC  ---  CHARACTER  (4). 

(2)  DODIC  ---  CHARACTER  (4). 

(3)  SSN  ---  CHARACTER  (6) . 

(4)  Nomenclature  -  CHARACTER  (48) . 

(b)  From  REVTAB  table: 

m  RCN  ---  INTEGER  (2). 

(2)  Title  of  PJSM  Run  (REMARKS)  ---  CHARACTER  MO' 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(c)  From  RESULTS  table: 

U)  FY  ---  INTEGER  (2)  . 

(2)  Plant  Code  (PLANT)  ---  CHARACTER  (2). 

(3)  Line  Number  (LINE)  ---  INTEGER  (3). 

(4)  Army  Production  for  Test  and  Training 
(PR0D_TATR)  ---  INTEGER  (10). 

(5)  Army  Production  for  War  Reserve 
(PR0D_AD0S )  ---  INTEGER  (10). 

(6)  A-my  Work  Years  Used  (WRKYRS  AR)  --- 
NUMBER  (F7.2);  e.g.,  XXXXXXX.XX. 

(7)  Other  Service  Production  (PROD_OTHER)  - 

INTEGER  (10). 

(8)  Other  Service  Work  Years  Used  (WRKYRS  OT) 
NUMBER  (F7.2);  e.g.,  XXXXXXX.XX. 

d.  Processing  - 

(1)  The  Production  Summary  screen  incorporates  a  few 
unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC .  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 

(b)  The  second  block,  which  relates  to  the  REVTAB 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
RCN.  This  means  the  data  will  be  displayed  in  ascending  order  by 
RCN. 

(c)  The  third  block,  which  relates  to  the  RESULT3 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 

FY  then  plant.  The  data,  which  relate  to  the  DODIC  in  block  1  and 
the  RCN  in  block  2,  will  be  displayed  in  order  of  FY  and  plant. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 
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(3)  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Production 
Summary  screen. 

(4)  From  PJSM  data  base  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  which  is  designed  for  the  user  to  select  which 
PJSM  run  they  wish  to  review  results  from.  The  information  in  block 

2  is  retrieved  from  the  REVTAB  table. 

(6)  After  values  are  displayed  in  block  1  and  2,  a 
query  is  executed  on  block  3  with  the  tie  between  the  three  blocks 
being  the  DODIC  of  the  item  and  the  RCN.  The  information  in  block 

3  is  retrieved  from  the  RESULT3  table. 

(7)  Certain  rules  will  not  allow  the  user  to  delete, 
insert,  or  update  general  item  information,  RCN  information,  or  any 
output  results.  These  rules  include  the  use  of  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  field 
prompt . 

e.  Output  -  Filled  screen  (see  figure  5.55.1-1). 

f.  Security  -  The  Production  Summary  screen  displays  infor¬ 
mation  which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  System 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  output  screens. 

(2)  REVTAB  -  contains  important  information  regarding 
rules  the  PJSM  will  use  for  a  model  run. 

(3)  RESULT3  -  contains  output  results  from  a  PJSM  model 
run.  This  table  stores  the  output  that  is  associated  with  the  total 
production  requirements. 
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Production  Suaaary 

FSC:  1320  D0D1C:  D505  SSI:  E26900 

loaencUture:  PBOJ  155H  ILLUM  M485  SEBIES  W/0  FUZE 

BCI  Version 

SCI:  11  Title:  MABCB  15  PSES.  BUDGET 

4BMT  PBODDCTIOI  OTHEB  PBODUCTIOI 


FT 

Plant 

Line 

Test/Trng 

War  Beserve 

•rk/Yrs 

Quanitity 

irk/Trs 

68 

LB 

249 

3800C 

152000 

58.3 

12000 

3.56 

89 

LB 

249 

0 

0 

0 

12000 

3.56 

90 

LB 

249 

0 

0 

0 

12000 

3.56 

91 

LB 

249 

0 

0 

0 

12000 

3.56 

92 

LB 

249 

0 

0 

0 

12000 

3.56 

93 

LB 

249 

0 

0 

0 

12000 

1.56 

Figure  5.55.1-1.  Example  of  Production  Summary  Output  Screen  Filled 
with  Information 
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5.55.2  Conventions . 


a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.55.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.55.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred ,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

• 

5.55.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>*INP. 

A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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PROGRAM  BKTISIOI  11.  DATE  ! 
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2.  PROGRAM  ID 
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3.  PROGRAM  IAME 

RESULTS. IIP 
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5.56  Program.  Item  Summary  Output  Screen  (RESULT4 . INP) 

5.56.1  Program  Description.  The  Item  Summary  screen  is  written 
using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to  create 
the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is  utilized 
to  convert  the  coding  into  a  screen.  This  screen  is  located  on  the 
PJSM  Master  Menu  under  option  4,  Review  Output  Data,  then  option  1, 

Screens  for  Reviewing  Output  Data,  and  finally  as  option  4. 

a.  Identification  -  The  source  code  for  the  Item  Summary 
screen  is  identified  by  a  file  labeled  RESULT4.INP.  After  being 
compiled  through  ORACLE  IAG,  a  run  file  is  created  named 
RESULT4 . FRM,  both  located  in  SAXPGM>$INP. 

b.  Functions  -  The  output  screen,  Item  Summary,  retrieves 
item  information  from  three  PJSM  data  base  tables  titled  ITEM, 

REVTAB,  and  RESULT4 .  The  purpose  of  this  screen  is  for  reviewing 
the  Army  production,  shortfalls,  and  ending  assets  from  various 
specified  PJSM  runs.  None  of  the  information  that  appears  on  this 
screen  can  be  updated,  inserted,  or  deleted  through  this  screen. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

a)  From  data  base: 

(a)  From  ITEM  table: 

U)  FSC  -  CHARACTER  (4). 

(2)  DODIC  ---  CHARACTER  (4). 

(3)  SSN  ---  CHARACTER  (6). 

(4)  Nomenclature  -  CHARACTER  (48) . 

(b)  From  REVTAB  table: 

U)  hCN  ---  INTEGER  (2). 

(2)  Title  of  PJSM  Run  (REMARKS)  ---  CHARACTER  140). 
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(c)  From  RESULT4  table: 


m 

FY  (FY)  ---  INTEGER  (2) . 

INTEGER 

(10)  . 

(2) 

Army  Production  Applied  (PR0D_ARMY)  - 

INTEGER 

(10)  . 

(3) 

Dollar  Value  of  Army  Production 

(DV_ARMY) 

(4) 

Shortfall  Quantity  for  Test  and 

Training 

(SFALL_TATR)  ---  INTEGER  (10). 

(5)  Shortfall  Quantity  for  DOS  (SFALL_ADOS)  --- 

INTEGER  (10). 

(6)  Shortfall  Quantity  for  OS  (SFALL_OTHER)  --- 

INTEGER  (10). 

(7)  Ending  Assets  (E_ ASETS)  ---  INTEGER  (10). 
d.  Processing  - 

(1)  The  Item  Summary  screen  incorporates  a  few  unique 

rules : 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
table,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC.  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC. 


(b)  The  second  block,  which  relates  to  the  REVTAB 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clauses  which  is  by 
RCN.  This  means  the  data  will  be  displayed  in  ascending  order  by 
RCN. 


(c)  The  third  block,  which  relates  to  the  RESULT4 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
FY,  then  plant.  The  data,  which  relate  to  the  DODIC  in  block  1  and 
the  RCN  in  block  2,  will  be  displayed  in  order  of  FY  and  plant. 

(2)  Read  terminal  type  t  •  set  function  keys  appropri¬ 
ately  on  each  user's  terminal. 


5-329 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(3)  Read  ORACLE  Identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Item  Summary 
screen . 

(4)  From  PJSM  data  base  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 

(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  which  is  designed  for  the  user  to  select  which 
PJSM  run  they  wish  to  review  results  from.  The  information  in  block 

2  is  retrieved  from  the  REVTAB  table. 

(6)  After  values  are  displayed  in  block  1  and  2,  a 
query  is  executed  on  block  3  with  the  tie  between  the  three  blocks 
being  the  DODIC  of  the  item  and  the  RCN.  The  information  in  block 

3  is  retrieved  from  the  RESULT4  table. 

(7)  Certain  rules  will  not  allow  the  user  to  delete, 
insert,  or  update  general  item  information,  RCN  information,  or  any 
output  results.  These  rules  include  the  use  of  a  predelete  and 
preselect  statement,  in  addition  to  answering  no  to  the  update  field 
prompt . 

e.  Output  -  Filled  screen  (see  figure  5.56.1-1). 

f.  Security  -  The  Item  Summary  screen  displays  information 
which  is  unclassified. 

g.  Interfaces  -  All  functional  users  of  the  PJSM  System 
will  only  hav*  ^rces"  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  output  screens. 

(2)  REVTAB  -  contains  important  information  regarding 
rules  the  PJSM  will  use  for  a  model  run. 

(3)  RESULT4  -  contains  output  results  from  a  PJSM  model 
run.  This  table  stores  the  output  that  is  associated  with  the 
percent  of  requirements  filled,  shortfalls,  and  ending  asset  levels. 
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I  tea  Suaaary 

FSC:  1320  DODIC:  0505  SSI:  E26900 

loaenclature:  PBOJ  155NH  ILLOH  M85  SEB1ES  I/O  FUZE 

SCI  Version 

SCI:  11  Title:  MABCH  15  PEES.  BUDGET 

Aray  Production  Shortfall  Quantities 


FT 

Quantity 
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far  Reserve 

Other 

88 
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43565000 
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0 

0 

89 

0 

0 

0 

0 

0 

90 

0 

0 

0 

45000 

0 

91 

0 

0 

0 

125000 

0 

92 
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0 

0 

150000 
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93 
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0 

0 

150000 

0 

Ending 

Assets 


310001 

273001) 

23400C 

19500C 

156000 

156000 


Figure  5.56.1-1.  Example  of  Item  Summary  Output  Screen  Filled 
with  Information 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


5.56.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY ,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.56.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.56.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  the  Display  Error  function  key 
will  let  the  user  know  what  the  error  was.  The  most  common  error 
would  be  that  the  table  or  column  does  not  exist,  which  simply  means 
that  the  user  does  not  have  access  to  that  table. 

5.56.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>$INP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.57  Program.  Post  Processor  Change  Screen  (RSLT_CHQ. INP) 

5.57.1  Program  Description.  The  Review  or  Update  Results  screen  is 
written  using  ORACLE  IAF.  An  ORACLE  process  called  IAG  is  used  to 
create  the  form  necessary  to  produce  a  screen.  The  ORACLE  IAP  is 
utilized  to  convert  the  coding  into  a  screen.  This  screen  is 
located  on  the  PJSM  Master  Menu  under  option  2,  Develop  or  Alter  the 
Ammunition  Program,  and  then  option  2. 

a.  Identification  -  The  Source  code  for  the  Review  or 
Update  Output  Results  screen  is  identified  by  a  file  labeled 
RSLT_CHG. INP .  After  being  compiled  through  ORACLE  IAG,  a  run  file 
is  created  named  RSLT_CHG . FRM,  both  located  in  SAXPGM>«INP. 

b.  Functions  -  The  output  screen,  Review  or  Update  Output 
Results,  retrieves  item  information  from  three  PJSM  data  base  tables 
titled  ITEM,  REVTAB ,  and  RESULT4 .  This  screen  is  to  be  used  in 
conjunction  with  the  PJSM  Post  Processor.  The  purpose  of  this 
screen  is  to  alter  the  output  from  a  PJSM  model  run  by  inputting  a 
new  quantity  or  a  new  dollar  value  for  a  specific  item.  Formulas 
are  executed  when  a  user  inserts  a  new  production  or  dollar  level. 
When  a  new  production  value  is  input  to  the  screen,  two  formulas  are 
executed.  The  first  formula  multiples  the  new  production  and  the 
unit  price,  subtracts  the  dollar  value  of  the  original  production, 
and  inserts  the  total  into  the  change  in  dollar  value  field.  The 
second  formula  subtracts  the  original  production  from  the  new 
production  and  inserts  the  total  into  the  change  in  production 
field.  When  a  new  dollar  value  is  input  to  the  screen,  two  formulas 
are  executed.  The  first  one  divides  the  new  dollar  value  by  the 
unit  price,  subtracts  the  original  production,  and  inserts  the  total 
into  the  change  in  production  field.  The  second  one  subtracts  the 
dollar  value  of  the  original  production  from  the  new  dollar  value 
and  inserts  the  total  into  the  change  in  dollar  value  field.  These 
values  are  stored  in  the  RESULT4  table  under  the  same  RCN  as  the 
original  run.  The  general  item  information  that  appears  at  the  top 
of  this  screen  cannot  be  update,  inserted,  or  deleted  through  this 
screen.  These  functions  have  to  be  performed  through  the  Item 
Descriptors  screen  or  a  special  data  base  procedure  that  is  found  on 
the  JSM  Master  Menu. 

c.  Input  - 

(1)  Through  JSM  menu,  user  inputs  terminal  type,  ORACLE 
identification,  and  password. 

(2)  From  data  base : 

(a)  From  ITEM  table; 
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U) 

FSC  --- 

CHARACTER  (4). 

(2) 

DODIC  - 

--  CHARACTER  (4) . 

(3) 

SSN  --- 

CHARACTER  (6) . 

(4) 

Nomenclature  -  CHARACTER  (48) 

(b)  From  REVTAB  table: 

m  RCN  ---  INTEGER  (2). 

(2)  Title  of  PJSM  Run  (REMARKS)  ---  CHARACTER  (40). 

(c)  From  RESULT4  table: 


<11 

FY  ---  INTEGER  (2) . 

INTEGER  (10). 

(2) 

Army  Production  Applied  (PRODARMY)  - 

---  INTEGER  (10) 

(3) 

Dollar  Value  of  Army  Production 

(DV_ARMY) 

(4) 

Dollar  Value  Change  (DV_CHG)  --- 

INTEGER 

(10) 

(5) 

Production  Change  (PROD_CHG)  - 

INTEGER 

(10) 

d.  Processing  - 

(1) 

The  Review  or  Update  Output  Results  screen 

incor- 

porates  a  few  unique  rules: 

(a)  In  the  first  block,  which  pertains  to  the  ITEM 
tabla,  this  screen  uses  a  default  WHERE  and  ORDER  BY  clause  which  is 
by  DODIC  then  FSC .  If  a  query  is  executed  with  no  given  informa¬ 
tion,  items  will  be  returned  to  the  screen  in  DODIC  order.  If  a 
particular  FSC  is  the  value  being  queried,  the  items  will  appear  in 
DODIC  order  within  that  FSC.  The  first  block  also  uses  a  series  of 
rules  that  will  not  allow  the  user  to  delete,  insert,  or  update 
general  item  information. 

(b)  The  second  block,  which  relates  to  the  REVTAB 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
RCN.  This  means  the  data  will  be  displayed  in  ascending  order  by 
RCN. 
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(c)  The  third  block,  which  relates  to  the  RESULT4 
table,  also  uses  a  default  WHERE  and  ORDER  BY  clause  which  is  by 
FY.  The  data,  which  relate  to  the  DODIC  in  block  1  and  the  RCN  in 
block  2,  will  be  displayed  in  order  of  FY. 

(2)  Read  terminal  type  to  set  function  keys  appropri¬ 
ately  on  each  user’s  terminal. 

(31  Read  ORACLE  identification  and  password  to  deter¬ 
mine  if  user  has  access  to  the  tables  being  used  in  the  Review  or 
Update  Output  Results  screen. 

(4)  From  PJSM  data  base  ITEM  table,  read  information 
associated  with  value  query  was  executed  on.  Display  to  input 
screen . 


(5)  After  values  are  displayed  in  block  1,  a  query  is 
executed  on  block  2  which  is  designed  for  the  user  to  select  which 
PJSM  run  they  wish  to  review  results  from.  The  information  in  block 
2  is  retrieved  from  the  REVTAB  table. 

(6)  After  values  are  displayed  in  block  1  and  2,  a 
query  is  executed  on  block  3,  with  the  tie  between  the  three  blocks 
being  the  DODIC  of  the  item  and  the  RCN.  The  information  in  block  3 
is  retrieved  from  the  RESULT4  table. 

(a)  Changing  information  that  exists  in  the 
RESULT4  table  can  only  be  accomplished  in  block  3.  When  a  user 
wishes  to  change  the  data  for  a  particular  item,  they  insert  either 
the  new  quantity  or  total  dollar  value. 

(b)  The  screen  will  take  whatever  value  the  user 
inserts  and  compute  the  change  from  the  original  value.  The  screen 
will  also  compute  the  change  for  the  value  they  did  not  enter  based 
on  the  information  given. 

(c)  When  the  user  commits  the  transaction,  the 
values  for  the  changes  are  directly  placed  into  the  RESULT4  table. 
The  user  is  unable  to  delete  any  information  from  the  RESULT4  table. 

(7)  The  rules  will  not  allow  the  user  to  delete, 
insert,  or  update  general  item  information,  RCN  information,  or  any 
output  re3ul ts . 

e.  Output  -  Filled  screen  (see  figure  5.34.1-1). 

f.  Security  -  The  Review  or  Update  Output  Results  screen 
displays  information  which  is  unclassified. 
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g.  Interfaces  -  The  functional  users  of  the  PJSM  System 
will  only  have  access  through  the  PJSM  Master  Menu. 

h.  Tables  -  Information  is  retrieved  from  the  following 
tables  in  the  PJSM  data  base: 

(1)  ITEM  -  contains  general  information  for  each  item. 
Since  the  ITEM  table  contains  the  main  identifiers  for  items  in  the 
data  base,  it  is  used  in  the  majority  of  the  output  screens. 

(2)  REVTAB  -  contains  important  information  regarding 
rules  the  PJSM  will  use  for  a  model  run. 

(3)  RESULT4  -  contains  output  results  from  a  PJSM  model 
run.  This  table  stores  the  output  that  is  associated  with  the 
percent  of  requirements  filled,  shortfalls,  and  ending  asset  levels. 

5.57.2  Conventions. 

a.  The  data  stored  in  ORACLE  are  case  sensitive.  If  the 
same  values  were  input  in  upper  and  lower  case,  ORACLE  would  treat 
them  separately.  The  input  screens  are  designed  to  insert  capital 
letters  into  all  of  the  fields  which  are  alphabetic. 

b.  When  designing  a  screen  using  ORACLE,  the  user  has  the 
option  of  having  WHERE  and  ORDER  BY  clauses  in  their  program.  These 
clauses  are  used  to  group  data  in  a  particular  block  which  relates 
to  a  data  table.  If  a  screen  was  designed  to  have  a  WHERE  and  ORDER 
BY  clause  set  up  by  FY,  the  screen  would  organize  the  data  for  that 
block  in  ascending  order  by  year. 

5.57.3  Verification  Procedures.  Verification  of  the  program  can  be 
accomplished  by  comparing  the  data  that  appear  on  the  input  screen 
with  data  in  the  corresponding  ORACLE  tables. 

5.57.4  Error  Conditions.  When  a  user  receives  a  message  that  an 
ORACLE  error  has  occurred,  executing  a  certain  control  key  will  let 
the  user  know  what  the  error  was .  The  most  common  error  would  be 
that  the  table  or  column  does  not  exist,  which  simply  means  that  the 
user  does  not  have  access  to  that  table. 

5.57.5  Listings.  Program  listing  is  located  in  <SYSSA>SAXPGM>IINP . 
A  hardcopy  of  the  source  program  is  available  in  AMSMC- IMS-HM. 
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5.58  Program.  Plant  Job  Scheduling  Model  Workloading  Program 
(PJSMWL) 

5.58.1  Program  Description.  The  PJSMWL  program  is  written  in 
structured  FORTRAN  77.  The  source  code  contains  approximately  905 
lines,  including  comments,  and  is  in  a  file  named  PJSMWL.  This  file 
must  be  compiled  using  the  PRIME  F77  compiler  to  call  the  appro¬ 
priate  libraries.  Like  the  rest  of  the  PJSM  graphics  programs  this 
program  is  written  as  a  module,  and  will  not  execute  properly  as  a 
stand  alone  program.  After  compilation,  it  must  then  be  loa'  ed  and 
linked  using  the  WLLINK  command  file.  This  will  load  and  liik  the 
program  with  the  other  required  routines  in  PJSMDB,  PJSMCOM,  and 
PJSMCHT.  The  PJSMWL  program  consists  of  six  subroutines  which  are 
called  when  the  individual  options  are  selected. 

a.  Identification  -  The  source  code  for  the  program  PJSMWL 
is  identified  by  a  file  labeled  PJSMWL.  After  being  compiled 
through  the  PRIME  F77  compiler,  the  PJSMWL. SEG  version  is  created 
for  use  in  loading  and  linking  the  other  modules  together. 

b.  Function  -  The  program  serves  as  a  supervisor  directing 
all  supporting  routines,  allowing  the  user  to  select  the  type  of 
workload  chart  desired  and  the  style.  Refer  to  Annex  F  for  a 
cross-reference  of  subroutines  in  each  of  the  PJSM  graphics  modules. 

c.  Input  -  This  program  begins  by  calling  three  routines 
located  in  PJSMCOM: 


(1) 

GORCLI 

to 

retrieve 

the 

user’s  ORACLE  ID  and  password 

(2) 

GTMTYP 

to 

retrieve 

the 

terminal  type. 

(3) 

GPTSYL 

to 

retrieve 

the 

character  style. 

This  information  is  used  as  input  for  the  six  subroutines  within 
this  program.  All  six  subroutines  require  IOX  (input/output  unit 
number)  and  TERM  (terminal  type)  as  input. 

d.  Processing  - 

(1)  Subroutine  WRKMEN  displays  a  menu  for  the  five 
available  workload  charts.  Depending  on  which  of  the  five  are 
selected,  one  of  the  following  subroutines  is  implemented.  If 
another  option  should  be  added  to  these  current  workloading  charts, 
this  routine  will  have  to  be  changed.  The  menu  appears  as  follows: 
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NO.  WORK- YEARS 

0  -  EXIT 

1  -  BY  YEAR  GROUPED  BY  SIGNIFICANT  ITEMS  FOP.  PLANTS 

2  -  BY  YEAR  GROUPED  BY  FAMILIES  FOR  PLANTS 

3  -  BY  YEAR  GROUPED  BY  PD1P  FOR  PLANTS 

4  -  BY  YEAR  GROUPED  BY  SERVICE  FOR  PLANT 

5  -  BY  YEAR  STRATIFIED  BY  LABOR  TYPE 

10>  SELECT  DESIRED  PLOT  > 

If  option  1  is  selected,  routine  WRKPT1  is  called.  If  option  2  is 
selected,  routine  WRKPT2  is  called;  option  3  calls  WRKPT3 ,  option  4 
calls  WRKPT4 ,  and  option  5  calls  WRKPT5 . 

(2)  Subroutine  WRKPT1  is  implemented  when  the  user 
requests  the  chart  displaying  the  ‘work-years  by  year  grouped  by 
Significant  items  for  plants'.  It  calls  on  routines  GYEAR  and 
GPLANT ,  located  in  PJSMCOM,  to  retrieve  the  years  requested  as  well 
as  the  plant(s)  requested.  It  then  fills  the  x  and  y  axis  labels 
with  the  appropriate  titles.  The  program  next  initiates  the  routine 
GSIGIT  if  data  are  to  be  retrieved  from  the  data  base,  or  starts  the 
routine  GITEMS  if  the  user  is  to  enter  the  data.  Both  routines  are 
located  in  PJSMCOM.  The  title  for  the  chart  is  then  filled  for  the 
specific  plant(s) .  If  the  user  has  retrieved  data  from  the  data 
base,  routine  DBWRK1  is  implemented  in  PJSMDB  to  accumulate  the  deta 
and  load  them  in  the  appropriate  form  After  the  legend  labels  are 
loaded  with  the  appropriate  information,  the  program  calls  routine 
BGNPLT  in  PJSMCOM  to  begin  the  actual  drawing  of  the  plot.  The 
information  retrieved  from  the  above  mentioned  procedures  is  passed 
to  this  routine  and  the  chart  is  drawn  on  the  screen. 

(3)  Subroutine  WRKPT2  is  implemented  when  the  user 
requests  the  chart  displaying  the  "work-years  by  year  grouped  by 
families  for  plants'.  It  calls  the  routine  GYEAR,  located  in 
PJSMCOM,  to  retrieve  the  years  being  requested  as  well  as  the 
routine  GFAMILY,  also  located  in  PJSMCOM,  to  retrieve  the  informa¬ 
tion  for  the  family  or  families  being  requested.  The  program  then 
initiates  the  routine  GPLANT,  located  in  PJSMCOM,  to  retrieve  the 
desired  plant(s)  information.  It  designates  the  x  and  y  axis  titles 
as  well  as  the  title  for  the  chart.  Routine  DBWRK2,  located  in 
PJSMDB,  is  then  called  to  accumulate  the  data  and  load  them  in  the 
appropriate  form.  The  information  retrieved  for  the  above  mentioned 
procedures  is  passed  to  the  routine  BGNPLT  and  the  chart  is  drawn  on 
the  screen. 
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(4)  Subroutine  WRKPT3  is  implemented  when  the  user  re¬ 
quests  the  chart  displaying  the  ’work-years  by  year  grouped  by  PDIP 
for  plants’.  It  calls  the  routine  GYEAR  to  retrieve  the  appropriate 
years  requested.  If  the  data  are  to  be  manually  inserted,  the  routine 
GPDIPS,  in  PJSMCOM,  is  called  to  allow  the  user  to  insert  data. 
Otherwise,  the  routine  DBWRK3 ,  in  PJSMDB,  is  called  to  accumulate 

the  data  from  the  data  base  and  load  them  in  the  appropriate  form. 

The  routine  GPLANT ,  in  PJSMCOM,  is  called  to  retrieve  the  required 
plant.  The  information  retrieved  from  the  above  mentioned  proce¬ 
dures  is  passed  to  the  routine  BGNPLT  in  PJSMCOM  and  the  chart  is 
drawn  on  the  screen. 

(5)  Subroutine  WRKPT4  is  implemented  when  the  user 
requests  the  chart  displaying  the  ’work-years  by  year  grouped  by 
service  for  plant’.  This  routine  calls  GYEAR,  GSERVC ,  and  GPLANT  in 
PJSMCOM  to  retrieve  the  years,  service,  and  plant  information, 
respectively.  The  x  and  y  axis  labels  are  filled  with  the  appro¬ 
priate  information  as  well  as  the  title  of  the  chart.  Then  the 
DBWRK4  routine,  in  PJSMDB,  is  called  to  accumulate  and  load  the  data 
from  the  data  base  in  the  appropriate  form.  Once  all  of  the  infor¬ 
mation  is  retrieved  and  loaded,  the  routine  BGNPLT  in  PJSMCOM  is 
called  to  draw  the  chart  on  the  screen. 

(6)  Subroutine  WRKPT5  is  implemented  when  the  user 
requests  the  chart  displaying  the  ‘work-years  stratified  by  labor 
type’.  This  routine  calls  GYEAR  and  GPLANT,  in  PJSMCOM,  to  retrieve 
the  years  and  plant  information,  respectively.  The  x  and  y  axis 
labels  and  the  title  of  the  chart  are  loaded  in  the  appropriate 
arrays.  Routine  DBWRK5  in  PJSMDB  is  called  to  accumulate  and  load 
the  required  data  in  the  appropriate  form.  Once  all  of  the  infor¬ 
mation  is  retrieved  and  loaded,  the  routine  BGNPLT  in  PJSMCOM  is 
used  to  draw  the  chart  on  the  screen. 

e.  Output  -  Creates  graphic  charts  of  workloading  according 
to  specified  directions. 

f.  Security  -  Information  portrayed  on  the  charts  is 
unclassified . 

5.58.2  Conventions.  The  program  is  written  in  structured 
FORTRAN  77.  The  program  does  not  create  any  output  in  report  form, 
but  produces  data  arrays  that  are  passed  to  the  calling  routines. 

This  program  is  a  module  of  the  whole  and  independently  serves  no 
purpose . 
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5.56.3  Verification  Procedures.  This  program  can  be  verified  by 
spot  checking  some  of  the  output  reflected  in  charts  against  values 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI . 

5.58.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur  it 
will  be  reflected  in  the  plotted  chart. 

5.58.5  Listings.  The  program  listing  contains  many  comments  to 
assist  in  making  program  changes.  The  program  listing  PJSMDB.FOR  is 
located  in  <CAS2SA)SAXTST)«JSM>PJSM. 


5  -342 


ADSM  18-L62-LAT-ZZZ-MM-  2,604 
30  November  1987 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


« 


fVj 

,v 

,N 

*. 


-v 


5.59  Program.  Plant  Job  Scheduling  Model  Requirement  Program 
(PJSMRQ) 

5.59.1  Program  Description.  The  PJSMRQ  program  is  written  in  struc¬ 
tured  FORTRAN  77.  The  source  code  contains  approximately  450  lines, 
including  comments,  and  is  located  in  a  file  named  PJSMRQ  which  must 
be  compiled  using  the  PRIME  F77  compiler  to  call  the  appropriate 
libraries.  Like  the  rest  of  the  PJSM  graphics  programs ,  this  pro¬ 
gram  is  written  as  a  module  of  the  whole  and  will  not  execute 
properly  as  a  stand  alone  program.  After  compilation,  it  must  be 
loaded  and  linked  using  the  RQLINK  command  file.  This  will  load  and 
link  the  program  with  the  other  required  routines  in  PJSMDB, 

PJSMCOM,  and  PJSMCHT.  The  PJSMRQ  program  consists  of  two  subrou¬ 
tines  which  are  called  when  the  individual  options  are  selected. 

a.  Identification  -  The  source  code  for  the  program  PJSMRQ 
is  identified  by  a  file  labeled  PJSMRQ.  After  being  compiled 
through  the  PRIME  F77  compiler,  the  PJSMRQ. SEG  version  is  created 
for  use  in  loading  and  linking  with  the  other  modules. 

b.  Function  -  The  program  serves  as  a  supervisor  directing 
all  supporting  routines,  allowing  the  user  to  select  the  type  of 
requirements  chart  desired  and  the  style.  Refer  to  Annex  F  for  a 
cross-reference  of  subroutines  in  each  of  the  PJSM  graphics  modules. 

c.  Input  -  This  program  begins  by  calling  three  routines 
located  in  PJSMCOM: 

(1)  GORCLI  to  retrieve  the  user’s  ORACLE  ID  and  password. 

(2)  GTMTYP  to  retrieve  the  terminal  type. 

(3)  GPT3YL  to  retrieve  the  character  style. 

This  information  is  used  as  input  for  the  two  subroutines  within 
this  program.  Both  subroutines  require  IOX  (input/output  unit 
number)  and  TERM  (terminal  type)  as  input. 

d.  Processing  - 

(1)  Subroutine  REQMEN  is  a  menu  for  the  available 
requirements  charts  (currently  only  one).  If  another  option  should 
be  added  to  the  current  capability,  this  routine  would  have  to  be 
modified.  The  menu  appears  as  follows: 
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NO  REQUIREMENTS 
0  -  EXIT 

1  -  BY  YEAR  GROUPED  BY  SERVICE  FOR  ITEM 
10>  SELECT  DESIRED  PLOT  > 

(2)  Subroutine  REQPT1  is  implemented  when  the  user 
requests  the  chart  displaying  the  'requirements  by  year  grouped  by 
service  for  item".  It  calls  on  routines  GYEAR ,  GITEMS,  and  GSERVC 
to  retrieve  the  years,  items,  and  service  respectively,  as  para¬ 
meters  of  the  data  to  be  plotted.  After  it  fills  the  x  and  y  axis 
labels  and  titles  with  the  appropriate  information,  the  routine  then 
calls  DBINAM,  in  PJSMDB,  to  retrieve  all  the  proper  item  identifica¬ 
tion  data.  The  routine  next  invokes  the  routine  DBREQ1,  in  PJSMDB, 
to  retrieve  and  accumulate  the  data  from  the  ORACLE  data  base  and 
loads  them  in  the  appropriate  form.  Once  everything  is  loaded,  the 
routines  UDATIN  and  BGNPLT ,  in  PJSMCOM,  are  called  to  begin  the 
actual  drawing  of  the  chart  on  the  screen. 

5.59.2  Conventions.  The  program  is  written  in  structured 
FORTRAN  77.  The  program  does  not  create  any  output  in  report  form, 
but  produces  data  arrays  that  are  passed  to  the  calling  routines. 
This  program  is  a  module  of  the  whole  and  independently  serves  no 
purpose . 

5.59.3  Verification  Proceduros.  This  program  can  be  verified  by 
spot  checking  some  of  the  output  reflected  in  charts  against  values 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI . 

5.59.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur  it 
will  be  reflected  in  the  plotted  chart. 

5.59.5  Listings.  The  program  listing  contains  many  comments  to 
assist  in  making  program  changes.  The  program  listing  PJSMDB. FOR  is 
located  in  <CAS2SA>SAXTST>* JSM>PJSM. 
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5.60  Program.  Plant  Job  Scheduling  Model  Production  Program 
(PJSMPD) 

5.60.1  Program  Description.  The  PJSMPD  is  written  in  structured 
FORTRAN  77.  The  source  code  contains  approximately  489  lines, 
including  comments,  and  is  located  in  a  file  named  PJSMPD.  This 
file  must  be  compiled  using  the  PRIME  F77  compiler  which  calls  the 
appropriate  libraries.  Like  the  rest  of  the  PJSM  graphics  programs, 
this  program  is  written  as  a  module  of  the  whole  system,  and  will 
not  execute  properly  as  a  stand  alone  program.  After  compilation, 
it  must  be  loaded  and  linked  using  the  PDLINK  command  file  which 
will  load  and  link  the  program  with  the  other  required  routines  in 
PJSMDB,  PJSMCOM,  and  PJSMCHT.  The  PJSMPD  program  consists  of  two 
subroutines  which  are  called  when  the  individual  options  are  selected 

a.  Identification  -  The  source  code  for  the  program  PJSMPD 
is  identified  by  a  file  labeled  PJSMPD.  After  being  compiled 
through  the  PRIME  F77  compiler,  the  PJSMPD>SEG  is  created  for  use  in 
loading  and  linking  with  the  other  modules. 

b.  Functions  -  The  program  serves  as  a  supervisor  directing 
all  supporting  routines,  allowing  the  user  to  select  the  type  of 
production  chart  desired  and  the  style.  Refer  to  Annex  F  for  a 
cross-reference  of  subroutines  in  each  of  the  PJSM  graphics  modules. 

c.  Input  -  This  program  begins  by  calling  three  routines 
located  in  PJSMCOM: 

(1)  GORCLI  to  retrieve  the  user’s  ORACLE  ID  and  password 

(2)  GTMTYP  to  retrieve  the  terminal  type. 

(3)  GPTSYL  to  retrieve  the  character  style. 

This  information  is  used  as  input  for  the  three  subroutines  within 
this  program.  All  three  subroutines  require  IOX  ( input/output  unit 
number)  and  TERM  (terminal  type)  as  input. 

d.  Processing  - 

(1)  Subroutine  PRDMEN  displays  a  menu  for  the  available 
production  charts.  If  another  option  should  be  added  to  the  current 
capability,  this  routine  would  have  to  be  modified  to  include  the 
new  option.  The  menu  appears  as  follows: 
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NO.  PRODUCTION  QUANTITY 

0  EXIT 

1  BY  YEAR  GROUPED  BY  SIGNIFICANT  ITEMS 

‘FOR  PLANTS’ 

2  SHORTFALL  QUANTITY  BY  YEAR  BY  ITEMS 

)  SELECT  DESIRED  PLOT  > 

(2)  Subroutine  PRDPT1  is  implemented  when  the  user 
requests  the  chart  displaying  the  ’production  by  year  grouped  by 
significant  items  for  plants’.  It  calls  on  routines  GPLANT  and 
GITEMS ,  in  PJSMCOM,  to  retrieve  the  desired  plants  and  items,  respec¬ 
tively.  This  routine  fills  the  x  and  y  axis  labels  and  plot  titles 
with  the  appropriate  information.  It  then  invokes  the  routine 
DBPRD1,  in  PJSMDB,  to  retrieve  and  accumulate  the  data  from  the 
ORACLE  data  base  and  loads  them  in  the  appropriate  form.  Once 
everything  is  loaded,  the  routines  UDATIN  and  BGNPLT  in  PJSMCOM 

are  called  to  begin  the  actual  drawing  of  the  chart  on  the  screen. 

(3)  Subroutine  PP.DPT2  is  implemented  when  the  user 
requests  the  chart  displaying  ’production  shortfall  quantity  by  year 
by  items’.  It  calls  on  the  routine  GYEAR,  in  PJSMCOM.  to  retrieve 
the  years  requested.  This  routine  then  loads  the  x  and  y  axis 
labels  and  the  plot  title  information.  It  then  invokes  the  routine 
DBPRD2 ,  in  PJSMDB,  to  retrieve  and  accumulate  the  data  from  the 
ORACLE  data  base  and  loads  them  in  the  appropriate  form.  Once 
everything  is  loaded,  the  routines  UDATIN  and  BGNPLT  in  PJSMCOM 

are  called  to  begin  the  actual  drawing  of  the  chart  on  the  screen. 

e.  Output  -  Creates  graphic  charts  of  production  according 
to  specified  directions. 

f.  Security  -  Information  portrayed  on  the  charts  is 
unclassi f led . 

5.60.2  Conventions.  The  program  is  written  in  structured 
FORTRAN  77.  The  program  does  not  create  any  output  in  report  form, 
but  produces  data  arrays  that  are  passed  to  the  calling  routines. 

This  program  is  a  module  of  the  whole  and  independently  serves  no 
purpose . 

5.60.3  Verification  Procedures.  This  program  can  be  verified  by 
spot  checking  some  of  the  output  reflected  in  charts  against  values 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI. 

5.60.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur  it 
will  be  reflected  in  the  plotted  char1. 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


5.60.5  Listings .  The  program  listing  contains  many  comments  to 
assist  in  making  program  changes.  The  program  listing  PJSMDB.FOR 
located  in  <CAS2SA>SAXTST>*JSM)PJSM. 
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5.61  Program.  Plant  Job  Scheduling  Model  Dollar  Program  (PJSMDL) 

5.61.1  Program  Description.  The  PJSMDL  program  is  written  in 
structured  FORTRAN  77.  The  source  code  contains  approximately  1,229 
lines,  including  comments,  and  is  located  in  a  file  named  PJSMDL. 

This  file  must  be  compiled  using  the  PRIME  F77  compiler  to  call  the 
appropriate  libraries.  Like  the  previous  three  PJSM  graphics  pro¬ 
grams,  this  program  is  written  as  a  module  and  will  not  execute 
properly  as  a  stand  alone  program.  After  compilation,  it  must  then 
be  loaded  and  linked  using  the  DLLINK  command  file  which  will  load 
and  link  the  program  with  the  other  required  routines  in  PJSMDL, 
PJSMCOM,  and  PJSMCHT.  The  rJSmWL  program  consists  of  nine  subrou¬ 
tines  which  are  called  when  the  individual  options  are  selected. 

a.  Identification  -  The  source  code  for  the  program  PJSMDL 
is  identified  by  a  file  labeled  PJSMDL.  After  being  compiled 
through  the  PRIME  F77  compiler,  the  PJSMDL. SEG  version  is  created 
for  use  in  loading  and  linking  the  other  modules  together. 

b.  Functions  -  The  program  serves  as  a  supervisor  directing 
all  supporting  routines,  allowing  the  user  to  select  the  type  of 
expenditure  (dollars)  chart  desired  and  the  style.  Refer  to  Annex  F 
for  a  cross-reference  of  subroutines  in  each  of  the  PJSM  graphics 
modules . 

c.  Input  -  This  program  begins  by  calling  three  routines 
located  in  PJSMCOM: 

(1)  GORCLI  to  retrieve  the  user’s  ORACLE  ID  and  password 

(2)  GTMTYP  to  retrieve  the  terminal  type. 

(3)  GPTSYL  to  retrieve  the  character  style. 

This  information  is  used  as  input  for  the  nine  subroutines  within 
this  program.  All  six  subroutines  require  IOX  ( input/output  unit 
number)  and  TERM  (terminal  type)  as  input. 

d .  Processing  - 

(1)  Subroutine  DOLMEM  displays  a  menu  for  the  eight 
dollar  expenditure  charts  now  available.  Depending  on  which  of  the 
eight  is  sel  ected,  one  of  the  following  eight  subroutines  is  imple¬ 
mented.  If  another  option  should  be  added  to  these  current  dollar 
expenditure  charts,  this  routine  will  have  to  be  changed.  The  menu 
appears  as  follows: 
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NO.  DOLLAR  VALUES 

0  -  Exit 

1  -  BY  YEAR  GROUPED  BY  FAMILIES  FOR  PLANTS 

2  -  BY  YEAR  GROUPED  BY  PDIP’S  FOR  PLANTS 

3  -  BY  FAMILY  FOR  PLANT-YEAR 

4  -  BY  YEAR  OF  TOA,  HARDWARE,  PRODUCTION  BASE 

5  -  BY  PLANTS  GROUPED  BY  YEAR  FOR  PLANT  TYPE 

6  -  BY  YEAR  GROUPED  BY  GOGO ,  GOCO ,  AND  COCO 

7  -  BY  YEAR  OF  POM  AND  TOA 

8  -  BY  YEAR  OF  PRODUCTION  BASE,  WAR,  RESERVES, 

AND  TRAINING 

>  SELECT  DESIRED  PLOT  > 

(2)  Subroutines  DOLPT1  is  implemented  when  the  user 
requests  the  chart  displaying  the  “dollars  expended  by  year  grouped 
by  families  for  plants".  Routines  GYEAR  and  GFAMILY,  located  in 
PJSMCOM  are  called  to  retrieve  the  years  requested  as  well  as  the 
family  information  and  selection  requested.  The  x  and  y  axis  and 
legend  labels  are  then  filled  with  the  appropriate  titles.  The  plot 
title  is  loaded  next.  The  subroutine  DBDOL1  in  PJSMDB  is  used  to 
retrieve  and  accumulate  the  data  and  load  them  in  the  appropriate 
format.  Then  the  program  calls  the  routine  BGNPLT  in  PJSMCOM  to 
begin  the  actual  drawing  of  the  plot. 

(3)  Subroutine  D0LPT2  is  implemented  when  the  user 
requests  the  chart  displaying  the  “dollar  expenditure  by  year 
grouped  by  PDIPs  for  plants'.  It  calls  on  the  routines  GYEAR, 
GPDIPS,  and  GPLANT  to  retrieve  the  years  requested,  the  PDIP  selec¬ 
tion  and  information,  and  the  plants  desired  respectively.  DOLPT2 
then  builds  the  x  and  y  axis  labels,  and  the  title  information  and 
loads  the  information  accordingly.  The  routine  DBD0L2  in  PJSMDB  is 
used  to  retrieve  and  accumulate  the  data  and  load  them  in  the  appro¬ 
priate  format.  Then  the  program  then  calls  the  routine  BGNPLT  in 
PJSMCOM  to  begin  the  actual  drawing  of  tne  plot. 

(4)  Subroutine  D0LPT3  is  implemented  when  the  user 
requests  the  chart  displaying  the  “dollar  expenditure  by  family  for 
plant  year’.  Calling  on  the  routines  GYEAR  and  GPLANT  to  retrieve 
the  years  and  the  plants  requested,  it  fills  the  x  and  y  label  and 
title  information  appropriately.  D0LPT3  then  calls  the  routine 
DBD0L1  to  retrieve  and  accumulate  the  appropriate  information 
requested.  The  routine  BGNPLT,  in  PJSMCOM,  is  called  to  begin  the 
actual  drawing  of  the  plot. 
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(5)  Subroutine  D0LPT4  is  implemented  when  the  user 
requests  the  chart  displaying  the  'dollar  expenditure  by  year  of 
TOA,  Hardware,  Production  Base".  It  first  calls  the  routine  GYEAR 
to  retrieve  the  desired  years,  then  fills  the  x  and  y  labels,  the 
legend  labels,  and  plot  title  information  accordingly.  The  routine 
DBD0L4 ,  in  PJSMDB,  is  used  to  retrieve  and  accumulate  the  desired 
data  and  load  them  in  the  appropriate  format.  Routine  BGNPLT,  in 
PJSMCOM,  is  called  to  begin  the  actual  drawing  of  the  plot. 

(6)  Subroutine  D0LPT5  is  implemented  if  the  user 
requests  the  chart  displaying  "dollar  expenditure  by  plants  grouped 
by  year  for  plant  type".  It  first  calls  the  routine  GYEAR,  in 
PJSMCOM,  to  retrieve  the  desired  year  information,  then  fills  the  x 
and  y  axis  labels,  the  legend  labels,  and  plot  title  information 
accordingly.  The  routine  DBD0L5 ,  in  PJSMDB,  is  called  to  retrieve 
and  accumulate  the  desired  data  and  load  them  in  the  appropriate 
format.  Routine  BGNPLT,  in  PJSMCOM,  is  then  used  to  begin  the 
actual  drawing  of  the  chart. 

(7)  Subroutine  D0LPT6  is  implemented  if  the  user 
requests  the  chart  displaying  ‘dollar  expenditure  by  year  grouped  by 
GOGO,  GOCO,  COCO".  This  routine  first  calls  the  routine  GYEAR,  in 
PJSMCOM,  to  retrieve  the  desired  year  information,  then  fills  the  x 
and  y  axis  labels,  the  legend  labels,  and  the  plot  title  information 
accordingly.  The  routine  DBD0L6 ,  in  PJSMDB,  is  called  to  retrieve 
and  accumulate  the  desired  data  and  load  them  in  the  appropriate 
format.  Routine  BGNPLT,  in  PJSMCOM,  is  used  to  begin  the 

actual  drawing  of  the  plot. 

(8)  Subroutine  D0LPT7  is  implemented  if  the  user 
requests  the  chart  displaying  ‘dollar  expenditure  of  POM  and  TOA". 
This  routine  just  calls  the  routine  GYEAR,  in  PJSMCOM,  to  retrieve 
the  desired  year  information,  then  fills  the  x  and  y  axis  labels, 
the  legend  labels,  and  the  plot  title  information  accordingly.  The 
routine  DBD0L7 ,  in  PJSMDB,  is  called  to  retrieve  and  accumulate  the 
desired  data  and  load  them  in  the  appropriate  format.  Routine 
BGNPLT,  in  PJSMCOM,  is  then  called  to  begin  the  actual  drawing  of 
the  chart. 

(9)  Subroutine  D0LPT8  is  implemented  if  the  user 
requests  the  chart  displaying  ‘dollar  expenditure  by  year  of  produc¬ 
tion  base,  war  reserves,  and  training'.  This  routine  first  calls 
the  routine  GYEAR,  in  PJSMCOM,  to  retrieve  the  desired  year  informa¬ 
tion,  then  fills  the  x  and  y  axis  labels,  the  legend  labels  and  the 
plot  title  information  accordingly.  The  routine  DBD0L8 ,  in  PJSMDB, 
is  then  called  to  retrieve  and  accumulate  the  desired  data  and  load 
them  in  the  appropriate  format.  Routine  BGNPLT,  in  PJSMCOM,  is 
called  to  begin  the  actual  drawing  of  the  chart. 
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e.  Output  -  Creates  graphic  charts  of  dollar  expenditure 
according  to  specified  directions. 

f.  Security  -  Information  portrayed  on  the  charts  is 
unclass i f led . 

5.61.2  Conventions .  The  program  is  written  in  structured 
FORTRAN  77.  The  program  does  not  create  any  output  in  report  form, 
but  produces  data  an  ays  that  are  passed  to  the  calling  routines. 
This  program  is  a  module  of  the  whole  and  independently  serves  no 
purpose . 

5.61.3  Verification  Procedures.  This  program  can  be  verified  by 
spot  checking  some  of  the  output  reflected  in  charts  against  values 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI . 

5.61.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur  it 
will  be  reflected  in  the  plotted  chart. 

5.61.5  Listings.  The  program  listing  contains  many  comments  to 
assist  in  making  program  changes.  The  program  listing  PJSMDB.FOR  is 
located  in  <CAS2SA>SAXTST>*JSM)PJSM. 
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5,62  Program.  Plant  Job  Scheduling  Model  Data  Base  Program 
(PJSMDB) 


5,62.1  Program  Description,  The  PJSMDB. FOR  program  is  written 
as  a  precompiled  form  of  structured  F77  and  contains  approximately 
2,233  lines  of  code.  This  program  consists  of  22  subroutines  and 
must  be  precompiled  using  the  ORACLE  FORTRAN  host  language  precom¬ 
piler  which  replaces  embedded  SQL  statements  with  calls  to  library 
routines.  The  precompiler  generates  an  intermediate  file 
PJSMDB. F77  which  is  compiled  with  the  PRIME  F77  compiler.  The  PRIME 
BIND  linker  utility  is  used  to  produce  the  executable  routines  in 
the  program  PJSMDB  as  requested  from  the  four  major  programs. 


a.  Identification  -  The  source  code  for  the  program  PJSMDB 
is  identified  by  a  file  labeled  PJSMDB. FOR.  After  being  compiled 
with  the  ORACLE  libraries,  the  F77  source  code  is  produced  in  a  file 
identified  as  PJSMDB. F77 .  This  program  is  then  compiled  to  create 
the  segmented  version  PJSMDB. SEG  for  use  in  loading  and  linking  the 
modules  together. 


b.  Function  -  The  program  is  actually  one  module  of  the 
entire  graphics  program  system.  It  consists  of  22  subroutines  each 
of  which  are  executed  according  to  the  particular  chart  requested. 
Each  subroutine  performs  a  specific  data  base  extract  under  the 
constraints  of  the  requested  parameters.  This  program  can  not  be 
executed  as  an  independent  program.  Its  function  is  to  be  used  in 
conjunction  with  the  PJSMWL,  PJSMDL,  PJSMRQ,  or  the  PJSMPD  program. 
Refer  to  Annex  F  for  a  cross-reference  of  subroutines  in  each  of  the 
PJSM  graphics  modules. 


c.  Input  -  The  input  required  is  dependent  upon  the  chart 
requested.  Following  is  the  input  required  for  each  subroutine  and 
the  variable  names  they  are  passed  in: 


(1)  Subroutine  DBD0L1  requires  IY1  (first  FY  year) ,  NY 
(number  of  years),  NFAM  (array  of  family  codes),  NF  (number  of  fami¬ 
lies  in  array),  PLTNO  (plant  code),  and  RCN1  (revision  control 
number ' . 


(2)  Subroutine  DBD0L2  requires  IY1  (first  FY  year),  NY 
(number  of  years),  RCN1  (revision  control  number),  and  PLTNO  (plant 
code)  . 


(3)  Subroutine  DBD0L4  requires  IY1  (first  FY  year),  NY 
(number  of  years) ,  and  RCN1  (revision  control  number) . 
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(4)  Subroutine  DBD0L5  requires  IY1  (first  FY  year),  NY 
(number  of  years),  PLTTYP  (plant  type  (G0G0,  G0C0 ,  COCO)),  and  RCN1 
(revision  control  number) . 


(5)  Subroutine  DBD0L6  requires  IY1  (first  FY  year),  NY 
(number  of  years) ,  and  RCN1  (revision  control  number) . 

(6)  Subroutine  DBD0L7  requires  1Y1  (first  FY  year),  NY 
(number  of  years) ,  and  RCN1  (revision  control  number) . 

(7)  Subroutine  DBD0L8  requires  IY1  (first  FY  year),  NY 
(number  of  years) ,  and  RCN1  (revision  control  number) . 

(8)  Subroutine  DBINAM  requires  IDX  (item  identifier 
name)  and  ICODE  (item  identifier  type). 


(9)  Subroutine  DBGPLT  requires  no  parameters  to  be 

in i t iated . 


(10)  Subroutine  DBLOGI  requires  NAME  (the  user’s  ORACLE 
name)  and  OPASS  (the  user's  ORACLE  password). 

(11)  Subroutine  DBL0G0  requires  no  parameters  to  be 

initiated . 

112)  Subroutine  DBPRD1  requires  IY1  (first  FY  year),  NY 
(number  of  years)  ,  DODIC  (array  of  items)  ,  NITM  (number  of  items)  , 
PLTNO  (plant  code)  ,  and  RCN1  (revision  control  number) . 

(13)  Subroutine  DBPRD2  requires  IY1  (first  FY  year),  NY 
(number  of  years)  ,  RCN1  (revision  control  number)  ,  IMODE  (last 
returned  item) ,  and  NITM  (maximum  number  of  items  requested)  . 

(14)  Subroutine  DBREQ1  requires  IY1  (first  FY  year),  NY 
(number  of  years)  ,  NSERV  (array  of  Service  codes  requested)  ,  NS 
(number  of  service  codes),  D0DIC1  (DOD  identification  requested), 
and  RCN1  (revision  control  number) . 


(15)  Subroutine  DBSIGC  requires  PLTNO  (plant  code), 
RCN1  (revision  control  number),  IY1  (first  FY  year),  IY2  (last  FY 
year) ,  and  NITM  (maximum  number  of  items) . 

(16)  Subroutine  DBSIGQ  requires  PLTNO  (plant  code), 
RCN1  (revision  control  number),  IY1  (first  FY  year),  IY2  (last  FY 
year),  and  NITM  (maximum  number  of  items). 
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(17)  Subroutine  DBSIGW  requires  PLTNO  (plant  code), 

RCN1  (revision  control  number),  IY1  (first  FY  year),  IY2  (last  FY 
year),  and  NITM  (maximum  numoer  of  items). 

(18)  Subroutine  DBWRK1  requires  IY1  (first  FY  year),  NY 
(number  of  years),  DODIC  (array  of  selected  items),  NITM  (number  of 
items),  PLTNO  (plant  code),  and  RCN1  (revision  control  number). 

(19)  Subroutine  DBWRK2  requires  1Y1  (first  year),  NY 
(number  of  years),  NF  (number  of  families  in  family  array),  PLTNO 
(plant  code),  and  RCN1  (revision  control  number). 

(20)  Subroutine  DBWRK3  requires  IY1  (first  FY  year),  NY 
(number  of  years) ,  RCN1  (revision  control  number) ,  and  PLTNO  (plant 
code)  . 


< 2 1 )  Suuroutme  DBWRK4  requires  IY1  (first  FY  year),  NY 
(number  of  years) ,  SERV  (array  of  selected  services) ,  NS  (number  of 
services) ,  RCN1  (revision  control  number) ,  and  PLTNO  (plant  code) . 

(22)  Subroutine  DBWRK5  requires  1Y1  (first  FY  year), 

NY  (number  of  years)  ,  RCN1  (revision  control  number)  ,  and  PLTNO 
(p'ant  code) . 

d.  Processing  -  The  PJSMDB  program  utilizes  the  input 
specified  above  as  constraints  for  extracting  the  appropriate  data 
from  the  ORACLE  data  base  which  are  then  passed  to  the  calling 
routines.  The  processing  logic  for  each  subroutine  is  given  below: 

(1)  Subroutine  DBD0L1  selects  and  accumulates  its  data 
in  one  of  two  ways.  If  the  user  selected  a  specific  plant  it 
extracts  the  DVARMY  value  and  DVOTHER  values  from  the  RESULT3 
table  for  the  given  input  parameters  and  sums  them  to  create  a 
Single  value  for  each  family  and  year.  If  the  user  selected  the 
option  which  is  a  total  of  all  plants,  it  extracts  the  DVPROD 
values  from  RESULT5  for  the  given  input  parameters.  With  either 
option,  the*>e  values  are  then  divided  by  1,000  and  converted  to 
integer  values  and  placed  in  DATA  (NF,  NY)  which  is  the  output  data 
array  diminished  by  number  of  families  and  number  of  years.  This 
array  is  then  feed  back  to  the  calling  routines  D0LPT1  in  PJSMDL. 

(2)  Subroutine  DBD0L2  selects  and  accumulates  its  data 
in  one  of  two  ways.  If  the  user  Selected  a  specific  plant,  it  then 
extracts  the  DVPROD  values  from  RESULT5  for  the  given  input  para¬ 
meters  and  sums  them  to  create  a  Single  value  for  each  package  and 
year.  If  the  user  selected  the  option  which  is  the  total  of  all 
plants,  it  extracts  the  DV_PR0D  for  all  plants  for  the  given  input 
parameters.  Regardless  of  the  option  entered,  the  routine  then  goes 
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thru  a  process  to  eliminate  all  zero  packages,  divides  all  values  by 
1,000  and  converts  them  to  integer  values,  then  sorts  package  totals 
in  each  year  in  descending  order.  For  legend  purposes,  the  package 
titles  are  then  extracted  from  the  PACKAGE  table  and  the  last  pack¬ 
age  (8)  will  be  the  sum  of  all  other  packages.  The  values  are  then 
fed  into  the  DATA  array  diminished  6  by  20.  This  array,  as  well  as 
N  (number  of  non-zero  packages)  and  PDIPNM  (legend  titles)  ,  is 
returned  to  the  calling  routine  D0LPT2  in  PJSMDL. 

(3)  Subroutine  DBD0L4  extracts  from  the  GOALS  table  the 
ACTIVITY_I  and  ACTIVITYII  values  for  the  given  input  parameters. 

It  then  divides  all  values  by  1,000  and  converts  them  to  integers. 
The  output  data  array,  DATA,  dimensioned  three  by  NY  (number  of 
years),  is  passed  these  values  into  positions  one  and  two.  The 
values  in  position  one  and  two  are  summed  for  each  year  to  arrive  at 
the  third  placed  in  the  third  parameter  for  each  year.  This  DATA 
array  is  then  fed  back  to  the  calling  routine  D0LPT4  in  PJSMDL. 

(4)  Subroutine  DBD0L5  extracts  and  accumulates  by  plant- 
type  from  the  RESULTS  table  the  DVARMY  and  DV0THER  values  for  the 
given  input  parameters.  These  values  are  then  divided  by  1,000  and 
converted  to  integer  values  and  fed  into  the  output  data  array  DATA, 
dimensioned  by  NY  (number  of  years)  with  the  second  dimension  set  to 
20.  However,  only  three  positions  of  the  20  will  be  used.  The  DATA 
array,  as  well  as  NP  (number  of  plants  in  group)  and  PLTNM  (plant 
codes  for  name)  are  passed  back  to  the  calling  routine  D0LPT5  in 
PJSMDL. 

(5)  Subroutine  DBD0L6  extracts  and  accumulates  by  plant 
type  from  RESULT6  the  DVPROD  value  from  the  given  input  parameters. 
These  values  are  then  divided  by  1,000  and  converted  to  integer 
values  and  fed  into  the  output  data  array,  DATA,  dimensioned  three 

(1  for  each  plant  type)  by  NY  (number  of  years).  The  DATA  array  is 
passed  back  to  the  calling  routine  DOLPT  in  PJSMDL. 

(6)  Subroutine  DBD0L7  extracts  and  accumulates  DV_PR0D 
values  form  the  RESULT5  table  by  year  and  divides  by  1,000.  Also 
extracted  and  accumulated  is  the  ACTIVITYI  values  from  the  GOALS 
table  by  year  and  multiplied  by  1,000.  These  values  are  then  fed 
into  the  output  data  array,  DATA,  dimensioned  by  two  (position  one 
being  the  DVPROD  values,  position  two  being  T0A  values) ,  and  NY 
(number  of  years).  This  array  is  then  passed  back  to  the  calling 
routine  D0LPT7  in  PJSMDL. 
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(7)  Subroutine  DBD0L8  extracts  data  from  two  tables.  The 
first  select  statement  extracts  and  accumulates  the  ACTIVITY_II  values 
from  the  GOALS  table.  The  second  select  statement  extracts  and  calcu¬ 
lates  data  as  follows:  SUM( (PR0D_TATR/ (PR0D_TATR+PR0D_AD0S) ) *DV_ARMY) 
and  extracts  and  accumulates  the  DVARMY  and  DVOTHER  values  for  the 
give  input  constraints.  All  values  are  then  divided  by  1,000  and 
converted  to  integer  values.  The  data  are  then  fed  into  the  output 
data  array,  DATA,  dimensioned  by  four  (positions  one  thru  four, 
respectively,  are  training.  DOS,  production  base,  and  other  service) 
and  NY  (number  of  years) .  The  DATA  array  is  passed  back  to  the 
calling  routine  D0LPT8  in  PJSMDL. 

(8)  Subroutine  DBINAM  extracts  from  the  ITEM  table  and 

the  information  pertaining  to  the  specific  item  requested  by  the 
input  data.  The  item  number,  standard  study  number,  the  Federal 
Supply  Class,  DOD  Identification  Code,  National  Stock  Number,  and 
item  sequence  number  is  passed  back  to  the  calling  routine  in  the 
following  variables  respec 1 1 vely :  ITEM1 ,  SSN1  ,  FSC1,  D0DIC1,  NSN1, 

and  ISN1 . 

(9)  Subroutine  DBGPuT  is  another  generic  routine  that 
can  be  implemented  from  any  calling  routine.  It  extracts  from  tne 
PLANT  table,  the  plant  codes ,  plant  names,  the  length  of  the  plant 
names,  and  the  number  of  plants  returned.  These  data  are  placed  in 
the  following  variables  respecti vely :  PCODE,  PNAME ,  PLEN ,  and  NPLT , 
and  passed  back  to  the  calling  routine. 

(10)  Subroutine  DBL0GI  is  implemented  each  time  any 
graphics  program  is  implemented  and  the  user  wishes  to  extract  data 
from  the  ORACLE  data  base.  This  routine  does  nothing  other  than  log 
the  user  into  ORACLE  and  verify  the  user’s  password.  It  returns 
nothing  other  than  an  error  code  if  needed.  Control  is  then  returned 
back  to  the  calling  routine. 

(11)  Subroutine  DBLOGO  is  called  whenever  the  user  exits 
the  program  and  has  been  attached  to  the  ORACLE  data  base.  This 
routine  'commits'  and  "releases'  the  data  base. 

(12)  Subroutine  DBPRD1  selects  and  accumulates  the 
PR0D_0THER,  PRGD_TATR,  and  PRODADOS  values  and  divided  them  by 
1,000  and  converts  them  to  integers.  The  values  are  fed  into  the 
output  data  array  entitled  DATA,  dimensioned  by  NITMS  (number  of 
items)  and  NY  (number  of  years).  This  data  array  is  passed  back  i,o 
the  calling  routine  PRDPT1  in  PJSMPD. 
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(13)  Subroutine  DBPRD2  selects  DODICs  from  RESULT3  table 
where  the  sum  of  the  values  SFALL_OTHER,  SFALL_TATR,  and  SFALL_AD0S 
from  RESULT4  is  greater  than  zero.  It  selects  only  those  DODICs  and 
orders  them  in  descending  order  of  those  sums.  It  then  invokes 
another  select  statement,  and  selects  and  accumulates  the  values 
SFALL_0THER,  SFALL_TATR ,  and  SFALL_ ADOS  for  the  DODIC  previously 
flagged  in  the  calculated  order.  It  then  divides  these  by  1,000. 
These  values  are  passed  into  the  output  array,  DATA,  dimensioned  by 
NITM  (maximum  number  of  items)  and  NY  (number  of  years).  The  DATA 
array,  as  well  as  IMODE  (accumulative  total  of  SFALL  items  returned), 
NITM  (number  of  items  returned),  and  DODIC  (array  of  DODIC  numbers), 
is  passed  back  to  the  calling  routine  PRDPT2  in  PJSMPD. 

(14)  Subroutine  DBREQ1  -  If  the  user  selected  only  the 
Army  requirements,  this  routine  selects  and  accumulates  the  QUANTITY 
value  from  the  REQTS_ARMY  of  the  selected  DODIC.  If  the  user 
selected  any  other  option;  i.e. ,  a  particular  service  or  all  ser¬ 
vices,  the  routine  selects  and  accumulates  the  QUANTITY  value  from 
the  REQTSOTHER  table  for  the  selected  service  and  DODIC.  These 
values  are  then  fed  into  the  output  data  array,  DATA,  dimensioned  by 
NS  (number  of  services)  and  NY  (number  of  years) .  This  array  is 
then  passed  back  to  the  calling  routine  REQPL1  in  PJSMRQ. 

( 1 5 J  Subroutine  DBSIGD  is  called  from  the  routine  GSIGIT 
in  PJSMCOM.  Its  function  is  to  select  and  order,  in  descending 
order,  the  dollar  value  of  items  produced  at  a  selected  plant.  It 
selects  and  accumulates  the  DVARMY  values  from  the  RESULT3  table. 
Once  the  value?  are  summed  and  placed  in  descending  order,  the 
respective  DODICs  are  placed  into  the  DODIC  array  in  the  same  order. 
This  array,  diminished  by  the  NITM  (number  of  items),  is  fed  back  to 
the  calling  routine  along  with  the  variable  NITM. 

(16)  Subroutine  DBSIGQ  is  called  from  the  subroutine 
GSIGIT  in  PJSMCOM.  Its  function  is  to  select  and  order,  in  descend¬ 
ing  order,  the  QUANTITY  value  of  items  produced  at  a  selected  plant. 
It  selects  and  accumulates  the  PR0D0THER,  PRODTATR,  and  PRODADOS 
values  from  the  RESULT3  table.  Once  the  values  are  summed  and 
placed  in  descending  order,  the  respective  DODICS  are  placed  into 
the  DODIC  array  in  that  same  order.  This  array,  dimensioned  by  NITM 
(number  of  items),  is  passed  back  to  the  calling  routine  along  with 
the  variable  NITM. 

(17)  Subroutine  DBSIGW  is  called  from  the  routine  GSIGIT 
in  PJSMCOM.  Its  function  is  to  select  and  order,  in  descending 
order,  the  work-year  values  of  items  produced  at  a  selected  plant. 

It  selects  and  accumulates  the  WRKYRS_AR  and  WRKYRSOT  values  from 
the  RESULT3  table.  Once  the  values  are  summed  and  placed  in  des¬ 
cending  order,  the  respective  DODICs  are  placed  into  the  DODIC  array 
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in  the  same  order.  This  array  is  dimensioned  by  NITM  (number  of 
items)  and  passed  back  to  the  calling  routine  along  with  the 
variable  NITM. 

(18)  Subroutine  DBWRK1  provides  the  eight  most  signifi¬ 
cant  producers  at  each  plant  or  a  total  of  all  plants,  and  a  ninth 
value  which  is  the  sum  of  all  other  items  not  included  in  the  first 
eight.  This  routine  selects  and  accumulates  the  WRKYRSAR  and 
WRKYRSOT  values  from  the  RESULT3  table  for  the  given  DODICs  and 
plant(s).  These  values  are  converted  to  integers  and  placed  in  the 
output  data  array,  DATA,  dimensioned  by  NITM+1  (number  of  items+1) 
and  NY  (number  of  years) .  This  array  is  then  passed  back  to  the 
calling  routine  D0LPT1  in  PJSMWL. 

(19)  Subroutine  DBWRK2  provides  the  nine  most  signifi¬ 
cant  families  of  items  produced  for  a  given  plant  or  for  the  total 
of  all  plants.  Also  the  user  is  allowed  to  select  the  families 
desired.  This  routine  selects  and  accumulates  the  WRKYRSAR  and  the 
WRKYRS_0T  values  from  the  RESULT3  table.  These  values  are  converted 
to  integer  values  and  placed  in  the  output  data  array,  DATA,  dimen¬ 
sioned  by  NF  (number  of  families)  and  NY  (number  of  years).  This 
array  is  then  passed  back  to  the  calling  routine  WRKPT2  in  PJSMWL. 

(20)  Subroutine  DBWRK3  provides  the  seven  most  signifi¬ 
cant  PDIP  packages  produced  for  a  given  plant  or  for  all  plants 
totaled  and  a  total  for  all  other  packages  not  included  in  the  first 
seven.  The  user  is  also  allowed  to  select  the  packages  desired. 

This  routine  selects  and  accumulates  the  WRKYRS  value  from  the 
RESULT5  table.  These  values  are  converted  to  integers  and  loaded 
into  an  intermediate  array,  PDIP.  This  array  is  then  sorted  to 
eliminate  zero  packages.  The  routine  then  places  seven  most  sig¬ 
nificant  packages,  as  well  as  one  value  for  the  total  of  the  rest, 
into  the  output  data  array,  DATA,  dimensioned  eight  by  20.  This 
array,  as  well  as  variable  N  (number  of  non-zero  PDIPs)  and  PDIPNM 
(legend  name  of  data),  is  then  passed  back  to  the  calling  routine 
WRKPT3  in  PJSMWL. 

(21)  Subroutine  DBWRK4  provides  the  work-years  expended 
by  year,  by  service  for  a  plant,  or  a  total  of  all  plants.  This 
routine  selects  and  accumulates  the  WRKYRS  values  from  RESULT'S 
according  to  the  user  given  constraints.  These  values  are  converted 
to  integer  values  and  placed  into  the  output  data  array,  DATA, 
dimensioned  by  NS  (number  of  services)  and  NY  (number  of  years). 

This  data  array  is  passed  to  the  calling  routine  WRKPT4  in  PJSMWL. 
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(22)  Subroutine  DBWRK5  provides  the  labor  utilization  by 
plant  stratified  by  each  labor  type;  i.e.,  production  over  head, 
non-production  overhead,  and  direct  labor;  and  a  total  of  all  three 
for  a  total  work-year  value  for  each  year.  The  routine  selects  and 
accumulates  the  WRKYRS  values  from  the  RESULT6  table  to  obtain  the 
direct  labor  values  for  a  given  plant.  It  then  selects  the  0MA_0H 
values  from  the  STAFF  table  to  obtain  the  production  overhead  values 
by  selecting  and  accumulating  the  WRKYRSTOT  values  from  the  RAMPPROD 
table  the  prior  year  direct  labor  data  are  retrieved.  The  routine 
then  selects  the  PR0D_0K_FAC  and  N0N_PR0D_0H_FAC  values  from  the 
PLANT  table  needed  to  calculate  the  respective  values.  The  needed 
data  elements  are  calculated  as  follows:  Direct  labor  -  direct 
labor;  production  overhead  =  direct  labor  *  production  overhead 
factor;  non-production  overhead  =  production  overhead  +  direct  labor 
+  OMA;  OMA  =  OMA.  These  values  are  converted  to  integer  values  and 
placed  in  the  output  data  array,  DATA,  dimensioned  by  four  (one 
position  for  each  value  mentioned  previously)  and  NY  (number  of 
years).  The  legend  titles  are  fed  into  an  array  entitled  PNAME 
dimensioned  by  four.  These  two  arrays  are  passed  back  to  the 
calling  routine  WRKPT5  in  PJSMWL. 

e.  Output  -  Creates  no  output  in  report  form. 

f.  Security  -  All  information  generated  is  unclassified. 

5.62.2  Conven* ions .  The  program  is  written  in  structured  F77.  The 
program  does  not  create  any  output  in  report  form,  but  produces  data 
arrays  that  are  passed  to  the  calling  routines.  This  program  is  a 
module  of  the  whole  and  independently  serves  no  purpose. 

5.62.3  Verification  Procedures.  This  program  can  be  verified  by 
spot  checking  some  of  the  output  reflected  in  charts  against  values 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI. 

5.62.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur  it 
will  be  reflected  in  the  plotted  chart. 

5.62.5  Listings .  The  program  listing  contains  many  comments  to 
assist  in  making  program  changes.  The  program  listing  PJSMDB.FOR  is 
located  in  <CAS2SA)SAXTST>*JSM>PJSM. 
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5.63  Program.  Plant  Job  Scheduling  Model  Charting  (PJSMCHT) 

5.63.1  Program  Description.  The  PJSMCHT  program  contains  the 
structured  F77  code  for  seven  display  routines.  These  routines  use 
the  Computer  Associates  Inc.  DISSPLA  graphics  software  to  generate 
the  actual  graphic  charts  requested.  The  program  contains  approxi¬ 
mately  1,560  lines  of  source  code  and  is  located  in  a  file  named 
PJSMCHT.  This  program,  which  must  be  compiled  with  the  PRIME  F77 
compiler,  is  loaded  and  linked  with  each  of  the  four  basic  programs. 
It  is  a  module  and  not  a  stand  alone  program. 

a.  Identification  -  The  source  code  for  the  program  PJSMCHT 
is  identified  by  a  file  labeled  PJSMCHT.  After  being  compiled 
through  the  F77  compiler,  the  PJSMCHT. SEG  version  is  created  for  use 
in  loading  and  linking  the  other  modules  together. 

b.  Function  -  The  program  is  used  in  conjunction  with  the 
four  basic  programs.  It  is  considered  a  module  and  is  not  run  in 
itself.  When  executing  one  of  the  four  main  PJSM  grapmcs  programs, 
this  program  is  called  by  the  program  being  used.  Its  function  is 
to  call  the  appropriate  subroutine  the  user  requests.  There  are 
seven  options  and  seven  subroutines,  one  for  each  of  the  following: 

(1)  A  Stacked  Bar  Chart. 

(2)  A  Grouped  Bar  Chart. 

(3)  A  Grouped  Bar  Chart  with  a  Total  Line. 

(4)  A  Line  Chart. 

(5)  A  Pie  Chart. 

(6)  A  Horizontal  Bar  Chart. 

(7)  A  Tabular  Listing. 

c.  Input  -  The  program  requires  data  to  feed  the  parameters 
of  the  display  routines.  These  data  are  received  from  the  four  main 
programs  as  the  user  selects  the  desired  chart  type. 

d.  Processing  - 

(1)  Subroutine  STKBAR  -  invoked  if  the  user  requests  a 
stacked  bar  style  chart.  The  appropriate  parameters  are  taken  from 
the  major  program  and  utilized  to  form  a  chart. 
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(2)  Subroutine  GRPBAR  -  invoked  if  the  user  requests  a 
grouped  bar  chart.  The  appropriate  parameters  are  taken  from  the 
major  program  and  utilized  to  form  a  chart. 

(3)  Subroutine  GTOBAR  -  invoked  if  the  user  requests  a 
grouped  bar  chart  with  a  total  line  chart.  The  appropriate  para¬ 
meters  are  taken  from  the  major  program  and  utilized  to  form  a 
chart . 

(4)  Subroutine  LINCHT  -  invoked  if  the  user  requests  a 
line  chart.  The  appropriate  parameters  are  taken  from  the  major 
program  and  utilized  to  form  a  chart. 

(5)  Subroutine  PIECHT  -  invoked  if  the  user  requests  a 
pie  chart.  The  appropriate  parameters  are  passed  from  the  major 
program  and  utilized  to  form  a  chart. 

(6)  Subroutine  HORBAR  -  invoked  if  the  user  requests  a 
horizontal  bar  chart.  The  appropriate  parameters  are  passed  from 
the  major  program  and  utilized  to  form  a  chart. 

(7)  Subroutine  TABLST  -  invoked  if  the  user  requests  a 
tabular  listing  of  the  data.  The  appropriate  parameters  are  passed 
from  the  major  program  and  utilized  to  form  a  chart. 

e.  Output  -  Creates  no  output  in  report  form. 

f.  Security  -  All  information  generated  is  unclassified. 

5.63.2  Conventions.  The  program  is  written  in  structured 
FORTRAN  77.  The  program  does  not  create  any  output  in  report  form, 
but  produces  data  arrays  that  are  passed  to  the  calling  routines. 
This  program  is  a  module  of  the  whole  and  independently  serves  no 
purpose . 

5.63.3  Verification  Procedures.  This  program  can  be  verified  by 
spot  checking  some  of  the  output  reflected  in  charts  against  values 
manually  retrieved  from  the  data  base  using  the  ORACLE  UFI . 

5.63.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur  it 
will  be  reflected  in  the  plotted  chart. 

5.63.5  Listings.  The  program  listing  contains  many  comments  to 
assist  in  making  program  changes.  The  program  listing  PJSMDB.FOR  is 
located  in  <CAS2SA>S4XTST>*JSM1 PJSM. 
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5.64  Program.  Plant  Job  Scheduling  Model  Common  (PJSMCOM) 

5.64.1  Program  Description.  The  PJSMCOM  is  written  in  structured 
FORTRAN  F77 .  The  source  code  contains  approximately  1,792  lines, 
including  comments,  and  is  located  in  a  file  named  PJSMCOM.  This 
file  must  be  compiled  using  the  PRIME  F77  compiler  to  call  the 
appropriate  libraries.  Like  the  rest  of  the  PJSM  graphics  programs 
this  program  is  written  as  a  module  and  will  not  execute  properly  as 
a  stand  alone  program.  After  compilation,  it  must  be  loaded  and 
linked  using  one  of  the  four  main  programs  WLLINK,  RQLINK,  DLLINK, 
or  PKLINK.  It  will  then  be  loaded  and  linked  with  these  programs 
and  other  required  routines  in  PJSMDB,  PJSMWL,  PJSMDL,  PJSMPD,  and 
PJSMRQ.  The  PJSMCOM  program  consists  of  24  subroutines  wMch  are 
called  when  the  different  options  are  selected. 

a.  Identification  -  The  source  code  for  the  program  PJSMCOM 
is  identified  by  a  file  labeled  PJSMCOM.  After  being  compiled 
through  the  F77  compiler,  the  PJSMCOM. SEG  version  is  created  for 

use  in  loading  and  linking  the  other  modules  together. 

b.  Function  -  The  program  serves  as  a  program  being  directed 
by  one  of  the  four  supervisor  programs.  It  contains  common  routines 
which  may  be  selected  by  any  of  the  supervisors.  Refer  to  Annex  F 
for  a  cross-reference  of  subroutines  in  each  of  the  PJSM  graphics 
modules . 


c.  Input  - 

(1)  Subroutine  ADDDLL  requires  no  input. 

(2)  Subroutine  BGNPLT  requires:  IOX  (input-output  unit 
number),  TERM  (terminal  number),  MODL  (module  from  which  routine  was 
called) ,  and  IMODE  (process  mode  -  0  =  inquiry,  other  =  plot  only) . 

(3)  Subroutine  GETFAM  requires  NUM  (the  family  number). 

(4)  Subroutine  GETPLN  requires  ICODE  (0;  given  number, 

return  the  name,  or,  1:  given  number,  return  the  number),  NUM  (the 
plant  number  if  ICODE  =  0) ,  and  NAME  (the  plant  name  if  ICODE  =  1) . 

(5)  Subroutine  GETPTY  requires  IOX  (input-output  unit 

number),  TERM  (terminal  type),  and  GPT  (current  plot  type  number). 

(6)  Subroutine  GFAMILY  requires  IOX  (input-output  unit 
number),  TERM  (terminal  number),  and  MODL  (module  from  which  routine 
is  cal  led)  . 
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(7)  Subroutine  GITEMS  requires  IOX  (input-output  unit 
number) ,  TERM  (terminal  type)  ,  MODL  (module  from  which  routine  was 
called)  ,  NIM  (maximum  number  of  items  to  select)  ,  and  IMODE  (0-ask 
for  user  input  else  use  set  parameters) . 

(8)  Subroutine  GORCLI  requires  IOX  (input-output  unit 

number) . 

(9)  Subroutine  GPDIPS  requires  IOX  (input-output  unit 
number)  ,  TERM  (terminal  type)  ,  and  MODL  (module  from  which  routine 
was  called. 

(10)  Subroutine  GPLANT  requires  IOX  (input-output  unit 
number),  TERM  (terminal  type),  and  MODL  (module  from  which  routine 
was  cal  led) . 

(11)  Subroutine  GPTSYL  requires  IOX  (input-output  unit 
number)  and  MODL  (module  from  which  routine  was  called). 

(12)  Subroutine  GSERVE  requires  IOX  (input-output  unit 
number) ,  TERM  (terminal  type) .  and  MODL  (module  from  which  routine 
was  called) . 

(13)  Subroutine  GSIGIT  requires  IOX  (input-output  unit 
number) ,  TERM  (terminal  type) ,  MODL  (module  from  which  routine  was 
called)  ,  PLTNO  (plant  code)  ,  RCN  (revision  control  number)  ,  IY1 
(first  FY  year),  IY2  (last  FY  year),  NITM  (maximum  number  of  items 
to  select)  ,  and  IMODE  (0-ask  for  user  input  else  use  set  parameters) 

(14)  Subroutine  GTMTYP  requires  IOX  (input-output  unit 
number)  and  MODL  (module  from  which  routine  was  called) . 

(15)  Subroutine  GUPDAT  requires  IOX  (input-output  unit 
number),  TERM  (terminal  type),  and  MODL  (module  from  which  routine 
was  called) . 

(16)  Subroutine  GYEAR  requires  IOX  (input-output  unit 
number),  TERM  (terminal  type),  MODL  (module  from  which  routine  was 
called) ,  and  NYR  (maximum  number  of  years  on  plot)  . 

(17)  Subroutine  LSTDAT  requires  IOX  (input-output  unit 
number)  and  MODL  (module  from  which  routine  was  called). 

(18)  Subroutine  MYPIE  requires  no  input. 

(19)  Subroutine  MYSPEC  requires  no  input. 
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(20)  Subroutine  NOTDON  requires  IOX  (input-output  unit 
number)  and  MODL  (module  from  which  routine  was  called). 

(21)  Subroutine  PLOTIT  requires  IOX  (input-output  unit 
number)  and  MODL  (module  from  which  routine  was  called). 

(22)  Subroutine  SETCOL  requires  ICOL  (color  index  number; . 

(23)  Subroutine  ZAESTH  requires  no  input. 

(24)  Subroutine  ZREADI  requires  IUN  (input  unit  number), 
d.  Processing  - 

(1)  Subroutine  ADDDLL  is  called  from  each  of  the  chart¬ 
ing  routines  in  the  program  PJSMCHT.  The  function  of  this  routine 
is  to  check  for  user  entered  chart  labels  (legend,  axis,  titles)  and 
be  sure  there  is  a  ’$'  appended  at  the  end  of  the  character  string. 

If  there  is  not  a  the  routine  adds  one.  These  'S's  are  required 

by  DISSPLA  to  correctly  utilize  DISSPLA’s  'self  terminating  string’ 
option . 

(2)  Subroutine  BGNPLT  is  implemented  by  the  routines 
DOLPT1,  D0LPT2 ,  DOLTP3 ,  D0LPT4 ,  DOLPT5 ,  DOLTP6 ,  D0LPT7 ,  and  DOLPT8 
in  PJSMDL ;  WRXPT1 ,  WRKPT2 ,  WRKPT3 ,  WRKPT4 ,  and  WRKPT5  in  PJSMWL; 

PRKPT1  and  PRKPT2  in  PJSMPD;  and  REQPT1  in  PJSMPQ.  The  function  of 
this  routine  is  to  begin  the  actual  plotting  by  displaying  the 
PLOT/UPDATE  menu  or  directly  plotting  the  data  by  calling  the  rou¬ 
tine  PLOTIT  in  PJSMCOM.  The  PLOT/UPDATE  menu  appears  as  follows. 

NO.  MENU  OPTION 

0  -  EXIT 

1  -  DRAW  PLOT 

2  -  UPDATE  PLOT  PARAMETERS 

3  -  REVIEW  PLOT  PARAMETERS 

21)  ENTER  OPTION  NUMBER) 

(a)  If  option  'O'  is  selected,  the  routine  returns 
to  the  previously  called  menu  by  using  the  variable  MODL  (module 
from  which  routine  is  called)  . 

(b)  If  option  1  is  selected,  the  routine  PLOTIT  is 
called  to  draw  the  plot. 

(c)  An  option  2  selection  calls  the  routine  GUPDAT, 
in  PJSMCOM,  to  allow  the  user  to  change  the  plot  parameters. 
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(d)  An  option  3  selection  calls  the  routine  LSTDAT , 
in  PJSMCOM,  to  allow  the  user  to  review  the  current  plot  parameters. 

(3)  Subroutine  GETFAM  is  a  short  routine  whose  only 
function  is  to  return  a  family  name  (FAM)  and  the  number  of  charac¬ 
ters  in  the  selected  family  name  (NCH) .  Stored  in  a  data  statement 
are  nine  family  names  coded  in  a  manner  which  DISSPLA  can  recognize 
as  denoting  upper  and  lower  case.  These  will  be  used  by  the  plots 
in  legends. 

(4)  Subroutine  GETPLN  is  a  short  routine  that  retrieves 
a  number  or  name  for  a  selected  plant  and  returns  it  to  the  calling 
routine.  GETPLN  is  called  from  GPLANT  in  PJSMCOM.  GETPLN  returns 
NUM  (the  plant  number  if  ICODE  =  1),  PCODE  (plant  two  letter  code), 
NAME  (the  plant  name  if  ICODE  =  0) ,  and  NCH  (number  of  characters  in 
the  name  defined  only  if  ICODE  =  0). 

(5)  Subroutine  GETPTY  is  a  routine  that  displays  on  the 
screen  the  current  (or  default)  chart  type  and  the  possible  options 
as  shown  below: 

CURRENT  PLOT  TYPE  NUMBER  =  4 

NO.  MENU  OPTION 

0  -  EXIT  NUMBER  UNCHANGED 

1  -  STACKED  BAR  CHART 

2  -  GROUPED  BAR  CHART 

3  -  GROUPED  BAR  CHART  &  TOTAL  LINE 

4  -  ONE  OR  TWO  AXIS  LINE  PLOT 

5  -  PIE  CHART 

6  -  HORIZONTAL  STACKED  BAR  CHART 

7  -  TABULAR  LISTING  TO  SCREEN 

SELECT  MENU  OPTION  > 

If  the  user  should  indicate  an  option  number  not  listed,  the  menu 
returns  a  message  that  states  that  an  invalid  entry  has  occurred. 

The  option  selected  is  returned  in  the  variable  GPT  (plot  type 
number)  and  returned  to  the  calling  routine  GUPDAT  in  PJSMCOM. 

(6)  Subroutine  GFAMLY  is  called  from  DOLPT2  in  PJSMDL 
and  WRKPT2  in  PJSMWL.  GFAMLY  implements  the  routine  GETFAM  and 
together  they  display  to  the  user  a  list  of  the  families  and  the 
ability  to  select  any  combination  or  all  of  the  families  to  be 
displayed  on  the  chart.  The  menu  is  displayed  below: 
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0  ALL  FAMILIES 

1  S<MALL  &  .50  CALIBER)* 

2  40<MM  -  120MM  &  4.2IN)* 

3  1 20 < MM  -  3IN>* 

4  R<0CKETS>* 

5  G(RENADES)  3<  (MINES)* 

6  S< IGNALS  &  SIMULATORS:' 

7  N<0N)  -  AAOS 

8  M<ISC  HARDWARE)* 

9  C(OMPONENTS)* 

21)  ENTER  ALL  FAMILY  NUMBERS  DESIRED) 

The  routine  verifies  that  a  valid  option  was  entered.  If  not,  the 
message  ‘Invalid  entry.  Reenter"  is  displayed.  The  routine  then 
calls  the  routines  ZREADI  in  PJSMCOM  to  read  the  entered  options  in 
a  free  format  manner  and  converts  them  to  integers.  It  then  returns 
NFAM  (array  of  selected  family  numbers),  N  (number  of  family  groups 
selected),  and  FAMNM  (array  of  family  name)  to  the  calling  routines. 

(7)  Subroutine  GITEMS  is  called  from  GSIGIT  in  PJSMCOM, 
WRKPT1  in  PJSMWL,  PRDPT1  in  PJSMPD,  and  REQPT1  in  PJSMRQ  when  the 
user  desires  a  chart  concerning  significant  items.  This  routine 
displays  a  list  of  the  different  item  identifiers  as  follows: 

NO.  IDENTIFICATION  MODE 

1  -  DODIC 

2  -  ITEM  NUMBER 

3  -  LEGEND  BY  SSN 

4  -  LEGEND  BY  DODAC 

5  -  LEGEND  BY  NSN 

6  -  LEGEND  BY  ISN 

7  -  LEGEND  BY  NOMENCLATURE  (1-31) 

21)  ENTER  MENU  NUMBER) 

It  then  calls  the  subroutine  ZREADI  in  PJSMCOM  to  read  the  free 
formatted  input  and  convert  to  integers.  GITEMS  verifies  that  a 
valid  option  was  entered.  If  not,  a  message  appears  stating  that  an 
invalid  option  was  entered  and  you  must  reenter.  It  utilizes  the 
user  input  selections  and  then  calls  the  routine  DBINAM  in  PJSMDB  to 
retrieve  all  the  item  identification  data  desired.  GITEMS  takes 
this  information  and  returns  to  the  original  calling  routines  ITEM 
(array  of  item  names  to  use  for  legend),  DODIC  (array  of  DODICS  for 
data  base  searches),  and  NITM  (number  of  selected  items). 
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(8)  Subroutine  GORCLI  is  called  from  PJSMRQ,  PJSMWL, 
PJSMDL,  and  PJSMRQ.  This  routine  asks  the  user  if  the  ORACLE 
data  bat- 3  is  to  be  used  to  retrieve  the  data  to  be  charted.  If  so, 
the  ORACLE  name  and  password  are  entered  and  the  login  occurs.  It 
then  asks  the  user  for  the  RCN  that  will  be  used  to  select  the 
desired  data.  The  menu  appears  as  follows: 

00>  DATA  TO  BE  READ  FROM  DATA  BASE7  Y/N  > 

Y 

00>  ENTER  YOUR  ORACLE  USERNAME  > 

00>  ENTER  YOUR  ORACLE  PASSWORD  > 


00>  ENTER  REVISION  CONTROL  NUMBER  (RCN)  > 

The  actual  login  is  accomplished  by  calling  another  routine  DBLOGI 
in  PJSMDB.  All  user  inputs  are  verified  for  accuracy.  Then  by 
using  the  routine  ZREADI  in  PJSMCOM,  the  entered  responses  are  read 
and  converted  to  integers. 


(9)  Subroutine  GPDIPS  is  called  from  subroutines 
D0LPT2  in  PJSMDB  and  WRKPT3  in  PJSMWL,  when  the  user  requests  a 
chart  depicting  PDIPs.  It  first  displays  the  option  on  the  screen 
as  well  as  the  possible  selections  as  follows: 


£8 

jgj!l 


PDIP 

NEW  MATERIAL  FIELDING 
SUPPORT  TEST  REQUIREMENTS 
AIIQ 

OPERATIONAL  PROJECTS 
MINIMUM  ANNUAL  TRAINING 
DEPOT  LEVEL  1 
30  DOS 
45  DOS 
60  DOS 


PDIP 

ANNUAL  TRAINING  REQUIREMENTS 

DEPOT  LEVEL  2 

60  DAY  MOB  TRAINING 

30  DOS  WRSA 

90  DOA 

60  DOS  WRSA 

90  DAY  MOB  TRAINING 

180  DOS 


>  ENTER  ALL  DESIRED  PDIPS 


The  user  now  has  the  ability  to  enter  up  to  eight  packages.  If  the 
user  should  enter  too  many,  a  message  will  be  shown  and  the  user  is 
given  the  opportunity  to  reenter.  Numbers  are  converted  to  integers 
by  calling  the  routine  ZREADI  in  PJSMCOM.  The  PDIPs  information  is 
then  loaded  into  the  approp. iate  data  arrays.  NPDIP  (array  of 
selected  PDIP  numbers) ,  NP  (number  of  PDIPs  requested) ,  and  PDIPNM 
(PDIP  name  for  legend). 
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(10)  Subroutine  GPLANT  is  implemented  by  D0LPT1,  D0LPT2 , 
and  D0LPT3  in  PJSMDL;  WRKPT1  in  PJSMWL;  and  PRDPT1  in  PJSMPD .  The 
purpose  of  this  routine  is  to  retrieve  the  selected  plant  and  its 
name.  GPLANT  calls  the  routine  DBGPLT,  in  PJSMDB,  if  data  are  to  be 
read  from  the  data  base,  or  GETPLN  if  data  are  to  be  entered  manually 
Data  values  retrieved  are  converted  to  integers  by  using  the  routine 
ZREADI  in  PJSMCOM.  The  routine  displays  the  menu  and  gives  the  user 
the  opportunity  to  make  the  selection.  The  menu  appears  as  follows: 


NO. 

PLANT  NAME 

NO. 

PLANT  NAME 

0 

-  TOTAL  OF  ALL  PLANTS 

1 

-  IOWA 

2  - 

LONE  STAR 

3 

-  MILAN 

4  - 

H0LST0N 

5 

-  COMMERCIAL 

6  - 

KANSAS 

7 

-  SCRANTON 

8  - 

LAKE  CITY 

9 

-  LONGHORN 

10  - 

LOUISIANA 

1 1 

-  PINE  BLUFF 

12  - 

INDIANA 

13 

-  MISSISSIPPI 

14  - 

RADFORD 

15 

-  CRANE 

16  - 

HAWTHORNE 

17 

-  SUNFLOWER 

18  - 

MCALESTER 

19 

-  ALL  PLANTS 

2 1  > 

ENTER  PLANT  OR  OPTION 

NUMBER  > 

Once  the  selections  are  made  the  appropriate  data  are  stored  in  the 
arrays  PLTNO  (plant  code  selected),  PLTNM  (plant  name),  NCH  (length 
of  plant  name) ,  and  NPLT  (number  of  plants  selected) .  These  arrays 
are  passed  back  to  the  appropriate  calling  routine. 

(11)  Subroutine  GPTSYL  is  implemented  by  the  programs 
PJSMWL ,  PJSMPD.  PJSMDL,  PJSMRQ ,  and  GUPDAT .  Its  purpose  is  to 
display  the  menu  which  describes  the  font  style  (style  of  the 
letters  and  numbers)  of  the  charts  so  the  user  may  select  the  one 
desired.  The  menu  appears  as  follows: 

NO.  FONT  /  PLOT  STYLE 

1  -  STICK  FONT  -  QUICK  DRAY 

2  -  SCMPLX  FONT  -  PRESENTATION  QUALITY,  NO  FILL 

3  -  SWISS  FONT  -  PRESENTATION  QUALITY,  SOLID 

00>  SELECT  MENU  NUMBER  > 

2 

The  entered  selection  is  converted  to  integer  form  by  calling  the 
routine  ZREADI  in  PJSMCOM.  The  information  is  stored  in  the  vari¬ 
able  PLTYP  (plot  style  number)  and  passed  back  to  the  calling  rou¬ 
tine  . 


5-374 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


(12)  Subroutine  GSERVC  is  implemented  by  the  routine 
WRKPT4  in  PJSMWL  and  REQPT1  in  PJSMRQ.  This  routine  provides  a  mei.u 
of  the  services  available  and  allows  the  user  to  get  the  desired 
option.  The  menu  is  as  follows: 

NO.  SERVICE 

0  -  ALL  SERVICES 

1  -  A<RMY)« 

2  -  N< AVY  SEA) $ 

3  -  N< AVY  AIR)  S 

4  -  M< ARINE)  C<0RPS) $ 

5  -  A< IR>  F<0RCE) $ 

6  -  C<0AST>  G<  UARD) $ 

7  -  0<THER) $ 

24)  ENTER  MENU  NUMBER  > 

The  user  entry  is  verified  to  be  of  an  integer  nature  by  the  routine 
ZREADI  in  PJSMCOM.  The  selected  information  is  stored  in  the  arrays 
NSERV  (array  of  Selected  service  codes)  ,  NS  (number  of  selected 
services) ,  and  SERVNM  (name  for  use  in  legend) .  This  information  is 
passed  back  to  the  appropriate  calling  routine. 

(13)  Subroutine  GSIGIT  is  implemented  by  the  routines 
WRKPT1  in  PJSMWL  and  PRDPT1  in  PJSMPD.  Purpose  of  the  GSIGIT  rou¬ 
tine  is  to  retrieve  significant  items  from  the  data  base.  The  user 
determines  the  selection  criteria  (or  what  is  significant  to  the 
user).  Options  are  the  most  dollars  spent,  the  most  work  years 
expended,  or  the  most  quantity  produced.  The  user  also  has  the 
option  of  entering  items  from  the  screen.  This  can  be  useful  if 
items  are  requested  that  would  not  fall  into  the  first  three  op¬ 
tions.  This  routine  first  displays  the  following  menu  which  gives 
the  user  the  selection  criteria: 

21  )  ENTER  PLANT  OR  OPTION  NUMBER  ) 

NO.  OPTION 

1  -  USER  ENTERED  ITEMS 

2  -  SIGNIFICANT  ITEMS  BY  DOLLARS 

3  -  SIGNIFICANT  ITEMS  BY  QUANTITY 

4  -  SIGNIFICANT  ITEMS  BY  WORK  YEARS 

21)  ENTER  MENU  NUMBER  ) 

(a)  If  option  1  is  selected,  the  routine  GITEMS 
in  PJSMCOM  is  implemented. 

(b)  If  option  2  is  selected,  the  routine  DBSIGD 
in  PJSMDB  is  implemented. 
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(c)  If  option  3  is  selected,  the  routine  DBSIGQ  is 

called . 

(d)  If  option  4  is  selected,  the  routine  DBSIGW  is 

called . 

The  routine  then  displays  the  following  menu  which  gives  the  user  a 
choice  of  how  the  items  will  be  identified  on  the  charts  in  the 
legend : 

NO.  OPTION 

1  -  LEGEND  BY  DODIC 

2  -  LEGEND  BY  SEQUENCE  NUMBER 

3  -  LEGEND  BY  SSN 

4  -  LEGEND  BY  DODAC 

5  -  LEGEND  BY  NSN 

6  -  LEGEND  BY  ISN 

7  -  LEGEND  BY  NOMENCLATURE  (1-31) 

21)  ENTER  MENU  NUMBER  ) 

1 


All  user  responses  are  verified  to  be  integer  values  by  calling  the 
routine  ZREADI  in  PJSMCOM.  Once  the  user  has  selected  how  the  items 
selected  will  be  identified,  the  routines  DBINAM  in  PJSMDB,  are 
called  to  select  the  appropriate  identifier  for  the  legend  titles. 
All  information  is  stored  in  the  arrays  DODIC  (array  of  selected 
DODIC) ,  ITEM  (array  of  legend  titles) ,  and  NITM  (total  number  of 
items  returned)  and  passed  back  to  the  calling  routine. 

(14)  Subroutine  GTMTYP  is  implemented  by  the  routines 
PJSMDL,  PJSMWL,  PJSMPD,  and  PJSMRQ.  Its  function  is  to  establish 
the  terminal  type  the  user  is  running  on  and  intialize  the  DISSPLA 
post  processor  routine.  The  routine  displays  the  following  menu: 

NO.  TERMINAL  TYPE 

1  -  TEKTRONIX  4006 

2  -  TEKTRONIX  4010  COMPATIBLE 

3  -  TEKTRONIX  4014 

4  -  TEKTRONIX  4025 

5  -  TEKTRONIX  4107 

6  -  TEKTRONIX  4115 

7  -  TEKTRONIX  4125 

8  -  BLACK/WHITE  META  FILE 

9  -  COLOR  META  FILE 

00)  ENTER  TERMINAL  MENU  NUMBER  > 
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The  user  identifies  the  terminal  being  used  and  the  selection  entered 
is  verified  for  being  an  integer  value  by  the  routine  ZREADI  in 
PJSMCOM.  If  one  of  the  options  (1  through  4)  are  selected,  the 
COLFG  array  is  set  to  0.  This  designates  that  a  monochrome  (black/ 
white)  terminal  is  being  used  and  tells  DISSPLA  to  call  the  subrou¬ 
tine  PTEKAL ,  requesting  the  user  to  enter  the  exact  terminal  model 
number.  If  the  user  selects  option  5  thru  7,  the  COLFG  array  is  set 
to  1.  This  designates  that  a  color  capable  terminal  is  being  used 
and  to  call  the  DISSPLA  subroutine  PTK41  which  asks  the  user  to  enter 
the  exact  terminal  model  number.  An  example  of  a  color  response 
foil ows : 

ENTER  MODEL  NUMBER 
4107 

This  information  is  stored  in  TERM  (terminal  type)  and  COLFG 
(color/black  and  white  flag)  and  passed  back  to  the  calling  routine. 

(15)  Subroutine  GUPDAT  is  a  large  subroutine  which  stores 
and  allows  the  users  to  update  the  graphics  variables.  Following  is 
a  list  of  the  graphics  variables  and  a  brief  description  of  each: 

GTITLE  -  TITLE  AT  TOP  OF  PLOT  OR  GRAPH.  THREE  LINES  MAX. 

GXTTLE  -  X-AXIS  TITLE  LINE 

GYTTL1  -  Y-AXIS  TITLE  LINE  LEFT  AXIS 

GYTTL2  -  Y-AXIS  TITLE  LINE  RIGHT  AXIS 

GLGTTL  -  LEGEND  TITLE  LINES  9  MAX 

GXATTL  -  X-AXIS  TICK  MARK  LABELS 

GXSCLE  -  X-AXIS  SCALE  MIN, STEP, MAX 

GYSCL1  -  Y-AXIS  SCALE  MIN, STEP, MAX  LEFT  AXIS 

GYSCL2  -  Y  AXIS  SCALE  MIN, STEP, MAX  RIGHT  AXIS 

GC0L0R  -  FILL  COLORS  FOR  EACH  DATA  ELEMENT  9  MAX 

GFILL  -  FILL  PATTERNS  FOR  EACH  DATA  ELEMENT  9  MAX 

GBGCOL  -  BACKGROUND  COLOR 

GFLTYP  -  SELECTED  PLOT  TYPE 

GLNTYP  -  LINE  TYPES  FOR  EACH  DATA  ELEMENT  9  MAX 
GCHRSZ  -  CHARACTOR  SIZE  FOR  PLOT  LABELS 
GLNTHK  -  LINE  THICKNESS 
GCOLFG  -  COLOR  TERMINAL  FLAG 
GSTYLE  -  CHARACTOR  TYPE  OR  STYLE 

GIOFLG  -  I/O  FLAG  DATE  SOURCE  DATA  BASE  OR  USER  INPUT 

GNUMl  -  NUMBER  OF  BARS  OR  CURVES  LEFT  AXIS 

GNUM2  -  NUMBER  OF  BARS  OR  CURVES  RIGHT  AXIS 

GXNUM  -  NUMBER  OF  X  VALUES 

GXPAGE  -  X  PAGE  SIZE 

GYPAGE  -  Y  PAGE  SIZE 
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GXORG  -  X  ORIGIN  POSITION 
GYORG  -  Y  ORIGIN  POSITION 
GXLEN  -  X-AXIS  LENGTH 
GYLEN  -  Y-AXIS  LENGTH 
GDATA  -  DATA  STORAGE  ARRAY 

This  routine  is  called  from  BGNPLT  in  PJSMCOM.  Once  it  is  imple¬ 
mented,  the  routine  displays  the  following  menu: 


NO.  UPDATE  OPTION 
0  -  EXIT 

2  -  X-AXIS  TITLE 
4  -  X-AXIS  SCALE 
6  -  LEGEND  TITLES 
8  -  FILL  PATTERNS 
10  -  CHARACTOR  SIZE 
12  -  COLOR  FLAG 
14  -  PAGE  SIZE 
16  -  PLOT  ORIGIN 
18  -  PLOT  STYLE 


NO.  UPDATE  OPTION 
1  -  PLOT  TITLE 
3  -  Y-AXIS  TITLE 
5  -  Y-AXIS  SCALE 
7  -  FILL  COLORS 
9  -  LINE  TYPES 
11  -  LINE  THICKNESS 
13  -  DASTA  I/O  FLAG 
15  -  PLOT  SIZE 
17  -  PLOT  TYPE 
19  -  TICK  TITLES 


26)  ENTER  ALL  MENU  NUMBERS  DESIRED  > 


If  desired,  the  user  may  enter  several  options  or  one  option  at  a 
time.  For  any  option  entered,  the  routine  will  display  its  current 
value  for  that  parameter.  Following,  it  will  ask  for  the  new 
values.  To  alter  a  few  of  these  settings  will  require  the  use  of 
the  Computer  Associates  DISSPLA  Manual  or  Pocket  Guide.  Settings 
such  as  'FILL  PATTERNS',  'FILL  COLORS',  and  'LINE  TYPES'  would 
require  the  user  to  refer  to  the  DISSPLA  Manual.  Most  of  the 
changes  are  verified  for  being  integer  values  by  the  routine  ZREADI 
in  PJSMCOM.  Once  all  of  the  graphics  parameters  are  as  desired, 
they  are  loaded  back  into  the  variable  listed  above  and  passed  back 
to  the  calling  routine  via  a  COMMON  BLOCK.  This  common  block  is 
loaded  in  PJSMGC  and  inserted  into  programs  if  required. 

(16)  Subroutine  GYEAR  is  called  from  the  graphics  mod¬ 
ule.  It  allows  the  user  to  enter  the  first  year  for  the  data  to  be 
plotted  as  well  as  the  number  of  years  desired.  The  program  prompts 
the  user  as  follows: 

24>  ENTER  FIRST  YEAR  FOR  PLOT  > 


24)  ENTER  TOTAL  NUMBER  OF  YEARS  TO  PLOT  > 
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Once  the  user  has  entered  the  prompted  data  and  the  responses  are 
verified  by  ZREADI  in  PJSMCOM,  for  being  integers,  the  data  are 
loaded  into  the  variables  IYR  (first  year  for  plotting)  and  NYR 

(number  of  years  or  plot)  and  passed  back  to  the  calling  routine. 

(17)  Subroutine  LSTDAT  is  called  from  the  routine  BGNPLT 
in  PJSMCOM.  It  allows  the  user  to  review  the  current  values  store 
in  the  graphics  common  block.  Once  the  user  selects  this  option  the 
following  will  appear  on  the  screen: 

GRAPHICS  PARAMETERS  LEGEND 

PAGE  SIZE  =  11.0  X  8.5  PLOT  SIZE  =  8.5  X  6.2  1  G0G0  (PLANTS)* 

CHAR  SIZE  =  0.180  ORIGIN  =  1.5  ,  1.0  2  GOCO  (PLANTS)* 

THICKNESS  =  0.020  COLOR  FLAG  =  TRUE  3  COCO  (PLANTS)* 


CHAR  FONT  =  SCMPLX  1/0  FLAG 

= 

TRUE 

4 

PLOT  TYPE  =  3 

,  GROUPED  BAR  CHART 

&  TOTALS  LIN 

5 

PATTERNS  =  1, 

5,  7,  16,  19.  4, 

3, 

12 

6 

FILL  COLORS  =  12, 

9,  7,  16,  2,  6, 

18, 

4 

7 

LINE  STYLES  =  18, 

15,  17,  16,  2,  3, 

4, 

7 

8 

TITLE  =  TOTAL  DOLLAR  EXPENDITURE 

9 

GROUPED 

BY  PLANT  TYPE 

X  - 

1990.0, 

1.0, 

1991.0 

Y1  - 

o.o, 

0.0, 

0.0 

X-AXIS  TITLE 

=  F( ISCAL  YEAR)* 

Y2  - 

0.0, 

0.0, 

0.0 

Y-AXIS  TITLE  =  M( ILL IONS  OF  DOLLARS >r 


TICK  TITLES  =  FY90  FY91 
ENTER  ’C'  TO  CONTINUE 

The  user  must  keep  in  mind  that  Several  of  these  values  are  set  by  a 
default.  For  example:  'page  size',  'plot  size",  'patterns',  "origin", 
etc.  However,  the  user  has  the  option  to  change  any  of  these  values. 
This  routine  returns  nothing  to  the  calling  routine. 

(18)  Subroutine  MYPIE  is  required  by  DISSPLA  to  place 
color  in  the  legend  of  a  color  pie  chart.  The  user  should  not  be 
concerned  with  this  routine  because  it  is  for  internal  use  only. 

(19)  Subroutine  MYSPEC  is  required  by  DISSPLA  to  place 
color  in  the  legend  of  a  color  line  or  bar  chart.  The  user  should 
not  be  concerned  with  this  routine  because  it  is  for  internal  use 
only . 

(20)  Subroutine  N0TD0N  is  called  from  any  routine  and 
its  function  is  to  display  a  message  if  the  selected  plot  is  not 
available.  The  message  appears  as  follows: 


PLOT  SELECTED  IS  NOT  YET  AVAILABLE. 
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(21)  Subroutine  PLOTIT  u  called  from  the  routine  BGNPLT 
in  PJSMCOM.  This  routine  begins  the  set  up  processing  of  the  chart. 
It  calls  a  few  DISSPLA  routines  to  set  up  the  page  size,  the  physical 
origin,  the  font  styles.,  and  character  size  in  height.  The  routine 
also  checks  to  see  what  type  chart  has  been  selected  and  calls  the 
appropriate  routine  in  PJSMCHT. 

(22)  Subroutine  SETCOL  is  called  internally  to  set  the 
hue,  intensity,  and  saturation  for  the  colors  selected.  This  rou¬ 
tine  makes  a  call  to  the  DISSPLA  routine  HWHSHI  which  sets  the 
aforementioned  color  parameters.  The  user  should  not  be  concerned 
with  this  routine  because  it  is  for  internal  use  only. 

(23)  Subroutine  ZAESTH  is  called  from  the  display  rou¬ 
tines  to  determine  the  aesthetic  minimum,  maximum,  major  and  minor 
values  for  the  charts.  The  calculated  values  are  returned  in  the 
variables  XMN  (aesthetic  minimum) ,  XMX  (aesthetic  maximum) ,  DXMJOR 
(major  internal),  and  DXMNOR  (minor  internal)  and  are  passed  back  to 
the  calling  routine. 

(24)  Subroutine  ZREADI  is  called  from  many  of  the  other 
routines  and  its  function  is  to  read  integer  values  from  an  input 
string  in  a  free  form  manner.  The  user  should  not  be  concerned  with 
this  routine  because  it  is  for  internal  use  only. 

e.  Output  -  Creates  no  output  in  report  form. 

f.  Security  -  All  information  generated  is  unclassified. 

5.64.2  Conventions.  The  program  is  written  in  structured  F77.  The 
program  does  not  create  any  output  in  report  form,  but  produces  a 
specific  module  or  data  element  needed  for  the  calling  routine.  The 
program  is  a  module  of  the  whole  and  independently  serves  no  pur¬ 
pose  . 

5.64.3  Verification  Procedures.  The  verification  of  this  program 
is  quite  difficult.  Any  errors  occurring  would  have  to  be  traced 
through  the  entire  procedure.  It  would  be  doubtful  that  the  error 
would  be  literally  within  this  module. 

5.64.4  Error  Conditions.  There  are  no  error  messages  printed  to  an 
output  file  or  to  the  screen.  However,  if  an  error  does  occur,  it 
will  be  reflected  in  the  plotted  chart. 

5.64.5  Listings.  The  program  listing  contains  many  comment  state¬ 
ments  to  assist  in  making  program  changes.  The  program  listing 
PJSMCOM  is  located  in  <CAS2SA)SAXTST>*JSM>PJSM. 
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5.65  Program.  Post  Post  Processor  for  the  Plant  Job  Scheduling 
Model  (POST-POST) 

5.65,1  Program  Description.  The  Post-Post  program  is  written  in 
structured  FORTRAN  77.  It  should  be  run  immediately  following  the 
Post  Processor  for  the  Plant  Job  Scheduling  (JSMPP)  to  produce  a 
summary  report. 

a.  Identification  -  The  source  code  for  the  Post-Post  program 
is  in  a  file  named  POST-POST . F77 .  This  file  is  compiled  and  linked 
to  produce  an  executable  run  file  --  POST-POST. RUN  --  as  follows: 

F77  POST-POST  -SI  2  -INTS  -LIST  -XREF  -RANGE 
BIND  -L0  POST-POST  -LI  SYNCLIB  -LI 

b.  Functions  -  The  Post-Post  program  reads  the  JSMPP. COMO 
file,  produced  by  the  Post  Processor  for  the  Plant  Job  Scheduling 
Model,  and  writes  a  summary  report.  This  report  is  sorted  by  DODIC 
and  FY  and  shows  each  change  that  was  entered  into  the  PJSM  RESULT4 
table,  the  change  that  was  allowed,  and  any  reason(s)  for  not  allow¬ 
ing  a  full  change  to  take  place.  Also,  there  is  a  reference  line 
number  that  is  the  line  number  in  the  JSMPP. COMO  file  where  the 
processing  of  the  change  begins. 

c.  Input  -  The  JSMPP. COMO  file. 

d.  Processing  -  The  JSMPP. COMO  file  contains  a  line  begin¬ 
ning  with  ‘.S  '  for  each  change.  This  line  contains  the  DODIC,  FY, 
and  the  change  that  was  entered.  The  change  that  was  allowed  ap¬ 
pears  on  a  similar  line  except  it  begins  with  '.F  ’.  Between  each 
of  these  could  be  one  or  more  remarks  lines  which  begin  with  ‘.R  *. 
These  lines  are  stripped  out  and  processed  in  the  following  steps: 

(1)  SyncSort  parameters  are  defined  and  the  application 
is  initiated  by  calling  subroutine  SSfSET. 

(2)  The  JSMPP. COMO  file  is  opened,  and  the  first  line 

is  read. 

(3)  The  following  steps  are  performed  until  the  end  of 
lile  is  reached. 

(a)  The  input  line  number  is  incremented  by  one. 

(b)  If  the  line  is  a  ".S  line,  it  is  combined  witn 
the  line  number  and  the  resulting  record  is  released  to  SyncSort. 
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(c)  If  the  line  is  a  '.R  "  line,  it  is  combined 
with  the  DODIC  and  FY  from  the  last  '.S  '  line  and  the  resulting 
record  is  released  to  SyncSort. 


SyncSort . 


(d)  If  the  line  is  a  ‘.F  '  line,  it  is  released  to 


(e)  The  next  line  is  read. 

(4)  The  released  records  are  sorted  by  calling  subrou¬ 
tine  SS*CMB. 

(5)  The  sorted  records  are  then  returned  from  SyncSort 
one  at  a  time  and  are  processed  in  the  following  steps; 

(a)  The  information  for  each  set  of  records  is 
accumulated  in  buffers  until  the  '.F  *  record  is  received.  All  the 
remarks  from  the  '.R  *  records  are  edited  and  strung  together  to 
form  a  single  remarks  line. 

(b)  Depending  upon  the  length  of  the  remarks  line, 
one  or  more  lines  are  printed  in  the  output  file  for  each  set  of 
records.  Remarks  are  not  printed  if  the  full  change  was  allowed. 

(c)  For  improved  readability,  a  blank  line  is 
inserted  to  separate  DODICs. 

(d)  Form  feeds  and  headers  are  printed  out  as 
necessary  to  prevent  printing  over  page  breaks. 

(6)  The  program  signals  SyncSort  that  it  is  finished  by 
calling  subroutine  SS*CLN. 


file)  . 


e.  Output  -  Post  Processor  summary  report  (POST-POST . COMO 


f.  Security  -  The  Post-Post  program  processes  information 
that  is  unclassified. 

g.  Interfaces  -  The  program  interfaces  with  the  SyncSort/ 
PRIME  system. 

5.65.2  Conventions,  The  program  was  written  in  structured  FORTRAN  77. 

5.65.3  Verification  Procedures.  None  needed. 

5.65.4  Error  Conditions.  Not  applicable. 
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ANNEX  A 

DOCUMENTED  PROGRAMS 


UTILITY  PROGRAMS 


JSM1.CPL 
ARCHIVE. CPL 
BIND3IX.CPL 

CREV.FOR 
PJSMMAINT . CPL 
BASECHK . FOR 
VALID. CPL 
BATCH  CPL  SUBPGMS 


PJSM  Master  Menu  Program 
PJSM  Table  Export  Program 

ORACLE  Precompile,  Compile,  Link,  and  Execute 
Program 

Change  Revision  Program 

PJSM  Data  Base  Maintenance  Program 

Data  Base  Consistency  Check 

ORACLE  User  Validation  Program 

Batch  CPL  Subprograms  Interfacing  JSM1.CPL 


INPUT  SCREENS 


JSM_ 1 . INP 
JSM2 . INP 
JSM_3. INP 
JSM4 . INP 
JSM5 . INP 
JSM6 . INP 
JSM7 . INP 
JSM_8 . INP 
JSM_9. INP 
JSM_10. INP 
JSM_ 1 1 . INP 
JSM_12. INP 
JSM_13. INP 
JSM14 . INP 
JSM_ 15 . INP 
JSM_16. INP 
GUID  l.INP 


Item  Descriptors  Input  Screen 

Item  Planning  Parameters  Input  Screen 

Item  Production  Capacity/Staffing  Input  Screen 

General  Plant  Data  Input  Screen 

Primary  Component  Information  Input  Screen 

Yearly  Consumption  Requirements  Input  Screen 

Production  Project  Specification  Input  Screen 

Army  Requirements  Stratification  Input  Screen 

Other  Customer  Requirements-Order  Input  Screen 

Secondary  Component  Information  Input  Screen 

Line  Descriptors  Input  Screen 

Update  or  Display  Army  Requirements  Input  Screen 

Update  or  Display  Other  Service  Requirements  Input  Screen 

DODIC/Project  Cross  Reference  Input  Screen 

RAMP  Item  Input  Screen 

RAMP  Production  Input  Screen 

JSM  Simulation  Guidelines  Input  Screen 


INPUT  PROGRAMS 


PKG.FOR  RDAISA  (Army  Requirements)  Input  Program 

ICAPP.FOR  ICAPP  Unit  Prices  (Including  Army’s)  and  Other 

Customer  Requirement  Input  Program 
APS . FOR  Alternate  Priority  Scheme  Generator  Program 
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INPUT  DATA  REPORT  GENERATORS 

IIDR.FOR  Individual  Item  Data  Report 

PIDR.FOR  Plant  Item  Data  Report 

AEMS.FOR  Data  Extract  for  Ammunition  Executive  Management 

System  (AEMS) 

IWIR.FOR  Increased  Workload  Impact  Report 


AMMUNITION  SCHEDULING  MODELS 

Ammunition  Scheduling  Model 
Plant  Job  Scheduling  Model  Post  Processor 
Build  Pointer  Arrays  Program  (for  PS  and  PPJSM) 
Requirement  Summarization  Program 

Post  Post  Processor  for  the  Plant  Job  Scheduling  Model 


OUTPUT  REPORT  GENERATORS 
RPT1.FOR  Army  Acquisition  Report 

RPT2.FOR  Workload  Summary  Report  by  Item  (by  Plant  and  Line) 

RPT3.FOR  Plant  Workload  Utilization  Detailed  Report 

RPT4.FOR  Plant  Workload  Summary  Report 

RPT5.FOR  Analysis  Worksheet  Report 

RPT6.F0R  Program  Development  Incremental  Package (PDIP) 

Summary  Report 
RPT7.F0R  Compare  Program 

RPT8.F0R  Summary  of  Training  and  Test  Items  not  Achieving 

100  Percent 

RPT9.F0R  Readiness  Report 

RPT10.F0R  Other  Service  Shortfall  Report 

RPT11.F0R  PDIP  Package  Structure  by  Item 

RPT12 . FOR  PDIP  Cost  Report 

RPT13.F0R  Work-years  Available  to  Increase  Plant  Utilization 

Report 

RPT14.F0R  Secondary  Item  Status  Report 

RPT15.F0R  Summary  of  Package  Requirement/Filled  Report 

RPT16.F0R  Conventional  Ammunition  Acquisition  Plan 


PS. FOR 
JSMPP 

BUILD_PTR.FOR 

TREQ.FOR 

POST-POST 


RESULT  1. 1 NP 
RESULT2 . INP 
RESULT3 . INP 
RESULT4. INP 
RSLT  CHQ.INP 


OUTPUT  SCREENS 

Army  Requirement  Allocation  Output  Screen 
Other  Customer  Requirement  Allocation  Output  Screen 
Production  Summary  Output  Screen 
Output  Screen 

Post  Processor  Change  Screen 
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ANNEX  B 


DATA  BASE  TABLES 


TABLE  NAME 

REVTAB 

ITEM 

SERVICE 

PACKAGE 

FAMILY 

PLANT 

STAFF 

LINE 

GOALS 

PFSTAB 

ICT 

PRODT 

PROJECT 

PRODTFY 

ITEMDATA 

RAMP  ITEM 

RAMP  PROD 

REQTSARMY 

REQTSOTHER 

TREQ 

REASONCODE 

result! 

RESULT2 

RESULT3 

RESULT4 

RESULT5 

RESULT6 


DESCRIPTION 

Revision  Table 
Cross  Reference  Table 
Service  Table 
Package  Table 
Family  Table 
Plant  Table 
Staff  Table 
Line  Table 
Goals  Table 

PDIP  Funding  Sequence  Table 

Item  Component  Table 

Production  Table 

Project  Table 

Production  Change  Table 

Item  Data  Table 

RAMP  Years  Item  Table 

RAMP  Years  Production  Table 

Army  Requirements  Table 

Other  Requirements  Table 

Total  Requirements  Table 

Reason  Code  Table 

Army  Requirements  Output  Table 

Other  Requirements  Output  Table 

Production  Output  Table 

Item  Output  Table 

Summary  by  Package  and  Family 

Summary  by  Plant  and  Line 


o.n* 
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RBVTA8  (Revision  Table) 


ELEffilT 

TYPE 

WIDTH 

SCALE 

DESCRIPTION 

RCI 

lueber 

2 

0 

Revision  Control  lueber 

STATOS 

Char 

1 

0 

Status  of  current  revision. 

I0TE:  Only  baseline  plus  one  other 
record  can  contain  a  T. 

T  =  Tes 

1  =  lo 

BPT 

luaber 

2 

0 

Beginning  FT 

IFY 

lumber 

2 

0 

lueber  of  FTs 

LVTRIG 

lueber 

1 

0 

Level  of  Training 

1  =  Level  1  Training 

2  =  Level  2  Training 

DEPOTS 

lueber 

1 

0 

Depot  requirements  needed  to  fill 

1  -  Provide  during  the  first  year 
(200  DOS) 

3  =  Provide  over  a  3  year 

(90  DOS,  55  DOS,  and  55  DOS) 

ASSETS 

Char 

1 

Asset  indicator 

T  -  Use  initial  assets 

1  '  Do  not  use  initial  assets 

SHAIIIG 

Char 

1 

Sharing  indicator 

T  -  Dse  excess  krtg  inventory  to  fill 
Other  Customer  requirements 

1  '  Do  not  share 

CREATED 

Date 

14 

Date  this  study  run  mas  created 

CUSEB 

Char 

12 

User  who  created  this  study  run 

ARCHIVED 

Date 

14 

Date  this  study  mas  pruged  froe  the  DBMS 

AOSEB 

Char 

12 

User  eho  archived  this  study 

REMARKS 

Char 

40 

General  coeeents  on  this  study 

\  V-* 
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VC* 


ITEM 


ELEMEIT 

TYPE 

WIDTH 

SCALE 

DESCRIPTIOM 

FSC 

Char 

4 

Federal  Supply  Class 

D0D1C 

Char 

4 

Departaent  of  Defense  Identification 
Code 

SSI 

Char 

6 

Standard  Study  Muaber.  Muabers  pro¬ 
ceeded  by  the  symbol  identify 

Other  Service/FMS  unique  awinition 
iteas 

SEQ 

lumber 

3 

0 

Sequence  Muaber  to  indicate  ordering 
on  output  reports 

ISM 

Char 

16 

Mational  Stock  Muaber 

ISM 

Char 

5 

I  tea  Sequence  Muaber 

FAMILY 

Muaber 

1 

0 

Family  Code 

SUB  FAMILY 

Muaber 

I 

0 

Sub  Family  Code 

USE 

Char 

1 

Use  Code 

V  =  far  Reserve 

T  =  Training 

I  =  Both 

1  -  Mot  assigned 

IMF 

Char 

1 

lea  aateriel  fielding  code 

Y  =  Yes 

M  =  Mo 

MOMEICLATUBE 

Char 

48 

Description  of  the  ltea 

UOH 

Char 

4 

Unit  of  Measure 

Thou  ~  Thousands 
Each  *  Units 
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•’•a1 

>»!* 

& 

S3 


* 

t 

V? 

$ 

¥ 

$ 


I 


i 

i! 

5 


smici 


!M  HDTH  SCALE  DESCI1PTI0I 


Service  Char 


Service  Code 


Service  laae 


Arey 

Foreign  Military  Sales/Grant  Aid 

Ar^r  Miscellaneous  (includes  DEMIL) 

lavy  Sea 

lavy  Air 

Marine  Corps 

Air  Force 

Coast  Guard 


01  *  Other 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


PiCKKS 


ELEME1T 

TYPE 

WIDTH 

SCALE 

DESCRIPTI0I 

PXGL 

luaber 

2 

0 

Package  Level 

1AME 

Char 

30 

Package  laae 

Package  Level  (for  Arey  use  only)* 

1  =  lea  Materiel  Fielding  (IV)  :  suaaation  of  PKG1  3  thru  7 

2  =  Test 

3  =  AIK) 

4  *  OPS 

5  ;  Level  1  Training 

6  *  Depot  1 

7  =  Mar  Reserve  1.0 

8  -  Mar  Reserve  2.0 

9  =  Mar  Reserve  3.0 

10  =  Level  2  Training 

11  *  Depot  2 

12  *  MORA 

13  *  VISA  1.0 

14  =  far  Reserve  4.0 

15  =  1RSA  2.0 
18  =  MOB  B 

17  =  far  Reserve  5.0 


•IOTE:  Package  level  0  is  used  in  RESDIT1  table  for  undelivered  prior  year  quantities  ebicb 
are  obtained  froa  the  RAMP  PROD  table. 
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MOLT 

8LBBIT  TYPE  BOTH  SCALE  DESCilFTlOl 

FAULT  lusher  1  0  Easily  lueber 

SOB_FAMILY  limber  1  0  Sub  Easily  lusher 

IAIS  Char  40  I as*  of  Easily 


SOB-FAMILY 


DESCilPTIOl 

Ssail  arse  thru  30ss 

Light  cal  thru  120ss  (sotor/tank) 

Heavy  cal  155ss  thru  8' 

Rocket* 

Qrenades/sinec/deso 
Miscellaneous  (isoke/illus) 
lon-AAO 

Miicellaneoui  Hardware 
Cosponenti 
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ELENEIT 


PLAIT 


TYPE  WIDTH  SCALE 


DESCHIPTIOM 


Ik 


Plant 

laae 

Type 

Prodohfac 

Monprodohjac 


Char 

Char 

Char 

lunber 

Euiber 


2 

15 

4 

5 
5 


Plant  Code 
Plant  Kaae 
Plant  Type 

Production  overhead  factor 
Ion-production  overhead  factor 


Plant  type: 

GOGO  «  Governaent  Owned,  Governaent  Operated 
GOCO  -  Governaent  Owned,  Contractor  Operated 
COCO  =  Contractor  Owned,  Contractor  Operated 
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& 

& 

K 


5;! 

is 

aSJ 

4 

4 

r 

'IV 

4 

5 

4 

id 

I 

•.‘V 

$ 

Ji*p 

f 

:S 

S§ 

I 


*v 

( 

sl 


L 

i 

$ 


ELENEMT 

TYPE 

HDTH 

SCALE 

DESC1IPTI0I 

Line 

luaber 

3 

0 

Line  luaber 

Plant 

Char 

2 

Plant  Code 

Desc 

Char 

40 

Line  Description 

8 

j 


.0: 


ss 


m 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


004L8» 

ELDE1T 

TYPE 

WIDTH 

SCALE 

DESCBIPTIOI 

PY 

lumber 

2 

0 

Fiscal  Year 

BCI 

lumber 

2 

0 

Revision  Control  lumber 

DRAwDI 

lumber 

3 

0 

Drawdown  in  days  of  supply  (DOS) 

BUILDUP 

lumber 

3 

0 

Buildup  (target)  in  DOS 

PCT.TBK 

lumber 

3 

0 

Percent  of  training  requirements 
to  be  filled  (usually  =  100X) 
(only  applied  to  Level  1) 

4CTIYITY.I 

lumber 

7 

1 

Total  obligation  authority  for 
hardware  (in  millions) 

4CTIVITYII 

lumber 

7 

1 

Total  obligation  authority  for 
projects  (in  millions) 

•The  drawdown,  buildup,  and  PCT_TBIG  valuta  in  this  table  will  be  applied  to  all  itewa  with 
requirewanta  unleaa  apecific  valuta  are  entered  for  an  itea  in  the  DRAIDI  and  BUILDUP  columns 
of  the  ITE1.D4T4  table. 
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y 

v 

V 


PFSTAfi 

(PDIP  Funding  Sequence  Ttble) 


EL EKE IT 

TYPE 

WIDTH 

SCALE 

DESCBIPTIOI 

PKGL 

luaber 

2 

0 

Package  Level 

SCR 

luaber 

2 

0 

Revision  Control  luaber 

SEO 

luaber 

2 

0 

Sequence  in  nbich  the  PKGLa  are  funded 

K 

* 


gflSM 


->  -'***  «•>  O*  »"*  h""  ,>  . 
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ICT 

(Item  Component  Table) 


ELHOT 

TYPE 

WIDTH 

SCALE 

DODIC 

Char 

4 

COUP 

Char 

4 

TIPS 

Char 

1 

PF  luaber  12  6 


WPF  luaber  12  6 


DESCBI PTIOI 

Department  o(  Delense  Identification  Code 
Coaponent  DODIC 
Type  of  Coaponent 

P  -  Primary  component,  such  as  explosives, 
black  poader,  combustible  cases,  aetal 
parts,  and  grenades.  (These  are 
possible  pacing  components.) 

S  -  Secondary  component  such  as  primers, 
prop  charges,  and  fuses. 

Procurement  Factor.  For  secondary  com¬ 
ponents  this  is  actually  the  training 
procurement  factor. 

War  Reserve  Procurement  Factor.  This  is 
used  only  for  secondary  components. 
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ELEMENT 


DODIC 

PLAIT 
LIVE 
B 1 85 


S285 


S185 


S285 


AVAIL 


MPQ 

MPA 


TYPE 

Char 

Char 

luaber 

lumber 


luaber 


luaber 


luaber 


luaber 


luaber 

luaber 


WIDTH 


7 

10 


PBODT 

(Production  Table) 


SCALE 


B-  1 3 


DESCHIPTIOI 


Departaent  of  Defense  Identification  Code 
Plant  Code 
Line  luaber 


Production  rate  for  a  1-8-5  operation 
(1  shift,  6  hours  a  day,  5  days  a  week) 


Production  rate  for  a  2-8-5  operation 
(2  shifts,  8  hours  a  day,  5  days  a  week) 


Staffing  needed  to  support  a  1-8-5 
production  rate 


Staffing  needed  to  support  a  2-8-5 
production  rate 


Availability 


0  =  Line  not  available 

1  =  1st  shift  only 

2  -  1st  and  2d  shifts  available 


Mininum  Procurement  Quantity 
Maxima  Production  Allowed 
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PIOJICT 


ELEItIT 

TYPE 

WIDTH 

SCALE 

DESCRIPTION 

PROJECT 

Char 

8 

Project  Code 

PLAI.YH 

lumbar 

2 

0 

Planning  Year 

COST 

lumbar 

7 

1 

Coat  of  Project  (in  millions) 

TITLE 

Char 

30 

Title  of  Project 

( 
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PRODf  FT 


ELEttfr 

TYPE 

WIDTH 

SCALE 

DESCRIPTION 

PROJECT 

Char 

8 

Project  Code 

DODIC 

Char 

4 

Department  of  Defense  Identification  Code 

PLAIT 

Char 

2 

Plant  Code 

Lire 

lumber 

3 

0 

Line  lumber 

FT 

lumber 

2 

0 

Fiscal  Year 

NO 

lumber 

2 

0 

Month 

RCI 

lumber 

2 

0 

Revision  Control  lumber 

R 1 85 

lumber 

9 

0 

Production  rate  for  1-8-5 

R285 

lumber 

9 

0 

Production  rate  for  2-8-5 

S 165 

lumber 

4 

0 

Staffing  for  1-8-5 

S285 

lumber 

4 

0 

Staffing  for  2-8-5 

AVAIL 

lumber 

1 

0 

Availability 

0  =  lot  available 

1  =  1st  shift  only 

2  :  1st  and  2d  shifts  available 

NPQ 

lumber 

7 

0 

Minimum  procurement  quantity 

MPA 

lumber 

10 

0 

Maximum  production  allowed 
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I TIM  DATA 


EUierr 

TYPE 

WIDTH 

SCALE 

DESCRIPTION 

DODIC 

lumber 

4 

Department  of  Defense  Identification  Code 

FY 

Ember 

2 

0 

Fiscal  Year 

ACM 

Euaber 

2 

0 

Revision  Control  lumber 

UIITPRICE 

Auaber 

12 

0 

Army’s  Unit  Price 

PEI 

Imber 

3 

0 

Priority  -  As  assigned  by  the  Deputy  Chief 
of  Staff  for  Operations  (DCSOPS).  The 
lomer  the  number,  the  higher  the  priority. 
Priority  number  777  denotes  component  items 
for  the  end  items,  comercially  procured 
items,  and  items  for  mhich  DCSOPS  did  not 
assign  a  priority 

ALTPRI 

lumber 

3 

0 

Alternate  Priority  Scheme 

DRAWDI 

Ember 

3 

0 

Drawdown  in  DOS 

a.  When  blank,  the  value  obtained  from 
the  GOALS  table  is  applied 

b.  When  positive,  this  number  is  applied 

BUILDUP 

Ember 

3 

0 

Buildup  in  DOS 

a.  When  blank,  the  value  obtained  from 
the  GOALS  table  is  applied 

b.  When  positive,  this  number  is  applied 

PCTTRIG 

lumber 

3 

0 

Percent  of  Training  requests  to  be  filled 

P01C0ST 

lumber 

8 

1 

Projected  production  cost,  in  millions  of 
dollars,  for  classified  and  non-AAO  items. 
These  costs  are  included  to  reflect  the 
total  budget  costs  where  quantities  are  not 
available  and/or  considered  classified 

lOA 

lumber 

10 

0 

Maximum  inventory  allowed 

$ 
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Biff  inn 

ELEffilT 

TYPE 

WIDTH 

SCALE 

DESCBIPT10I 

DODIC 

Char 

4 

Department  of  Defense  Identification 
Code 

FY 

Umber 

2 

0 

Program  year  of  the  Funded  Delivery 
Period  (FDP) 

BEGCY 

M umber 

2 

0 

Beginning  CY  of  the  FDP 

BEG  JO 

M uaber 

2 

0 

Beginning  calendar  month  of  the 
BEG_CY 

EID.CY 

lumber 

2 

0 

Ending  CY  of  the  FDP 

EVD.HO 

lumber 

2 

0 

Ending  calendar  month  of  the  EID.CY 

MO  _  ICS 

lumber 

2 

0 

lumber  of  months  in  the  FDP 

BEG_ ASSETS 

lumber 

10 

0 

Beginning  assets 

PBOD  ABMY 

lumber 

10 

0 

Total  production  for  Army 

PROD  TOT 

lumber 

10 

0 

Total  production 

LOSSES 

lumber 

10 

0 

Test/Training/Other  losses 

OC  DEL 

lumber 

10 

0 

Other  customer  deliveries 

EID.ASSETS 

lumber 

10 

0 

Ending  assets  at  end  of  FDP 

ARMY.BUY.QTY 

lumber 

10 

0 

Army  buy  quantity 

OIIT.PRICE 

lumber 

12 

4 

Army  unit  price 

DVARMY 

lumber 

10 

0 

Dollar  value  of  the  funded  Ar^y 
production  quantity 
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u»  noo 


ELBOT 


DESCBIPTIOI 

Departaent  of  Defense  Identification 
Code 

Fiscal  Tear 
Plant  Code 


OIDEL  AB 


UIDEL  TOT 


PBOD  ABUT 


DV  ABUT 


mm  AB 


PBOD  TOT 


DT  TOTAL 


VBKTBS  TOT 


PBOD.TB.QTT 


Line  luaber 

Undelivered  BAMP  year  quantity  for 
Any 

Undelivered  BAMP  year  quantity  for 
other  custoeers 

Aray  and  production  for  Ar^y 

Dollar  value  of  the  funded  Aray 
production  quantity 

VBXTBS  of  the  Arey  production 
quantity 

Total  production  for  Aray  and  other 
customers 

Dollar  value  of  the  Aray  and  other 
customer  production 

VBXTBS  of  the  Aray  and  other 
custoaer  production 

Production  year  quantity  (prograa 
year  ♦  1) 
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IV 

HI 


t 

Mi? 

M 

m 

*rpft 

wK 

AS: 
:WI 

r 


V,>. 

& 


9 


RZQTS  ABUT 


ELEMENT 


Quantity 


DESCRIPTION 

Department  of  Defense  Identification 
Code 

Fiscal  Year 
Package  Level 
Required  Quantity 

Indicated  the  change  from  the  last  set 
of  requirements 


•A 


m 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


BEQTS  OTHER 


ELEttIT 


»;S 

$ 

‘{e> 

jig 

1 

i 

V-'1 

I 

L 

H 

f 
1 


Service 


OIIT  PRICE 


Quantity 


DESCRIPT I 01 

Department  ol  Defense  Identification 
Code 

Fiscal  Tear 

Service  Code 

Dnit  Price 

Required  Quantity 

Indicated  the  change  from  the  last 
set  of  requirements 


1 

Wsjkmss; 


WR 


yy 


ADSM  18-L62-LAT-ZZZ-MM-2604 
30  November  1987 


T1SQ 

(ToUl  lequirements) 


»V. 


ELEMENT 

TYPE 

WIDTH 

SCALE 

DESCBIPTIOI 

SCI 

lubber 

2 

0 

Revision  Control  luaber 

DODIC 

Char 

4 

Departaent  of  Defense  Identification 

Code 

FY 

luaber 

2 

0 

Fiscal  Year 

OTHEB_BEQ 

lunber 

10 

0 

Total  other  service  requirements: 

(IS  ♦  IA  ♦  MC  ♦  AF  ♦  CG  ♦  OT  ♦  FM  ♦  AM) 

ABMY.TATB 

lubber 

10 

0 

Total  Army  test  and  training  requirements 

DRAMIDI  QTY 

lubber 

10 

0 

Drawdown  quantity 

BOILDUPQTY 

lubber 

10 

0 

Build  up  quantity 

IMF  flTY 

lubber 

10 

0 

lew  Materiel  Fielding  (MIF)  quantity. 
Kquals  the  sum  of  PKGL  3  thru  7  for  IMF 

iteas. 

TOTABEQ 

luaber 

10 

0 

Total  Aray  requi rebent 

m 
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UUOI  CODI 


ELENDT 


DESCRIPTOR 


Reason  Cod* 


Reason  for  shortfall 


DESCRIPTOR 


Lack  of  sufficient  funds 

Production  capacity  constraint 

Staffing  constraint 

Cannot  produce  a  prinary  component 

Requirement  exceeds  buildup  target 

Level  2  training  not  allotted 

Pipeline  filled  over  3-ytar  period 

lo  production  facilities  available 

Requirement  exceeds  percent  of  training  allowed 

Maximum  inventory  allowed  constraint 

Maximum  inventory  allowed  constraint 
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RIS0LT1 

ikim/  Requirements  Output  Table) 


ELEMEIT 

TYPE 

WIDTH 

SCALE 

SCI 

luaber 

2 

0 

DODIC 

Char 

4 

FT 

luaber 

2 

0 

PKGL 

luaber 

2 

0 

TYPE 

Char 

1 

PACER 

Char 

1 

IIVAPP 

luaber 

10 

0 

IHV_DV 

luaber 

10 

0 

PRODAPP 

luaber 

10 

0 

PROD.D? 

luaber 

10 

0 

NBKYRS 

luaber 

7 

2 

PCT.LIIE 

luaber 

7 

2 

SFALL.QTY 

luaber 

10 

0 

RC 

Char 

1 

DESCE1PTI01 

Revision-  Control  luaber 

Departaent  oi  Defense  Identification  Code 

Fiscal  Tear 

Package  Level 

Type  of  itea 

E  =  End  itea 
P  =  Priaary  coap 
S  *  Secondary  coap 

D  *  Prior  year  undelivered  production 

CD’  is  used  in  conjunction  with  PKGL  =  0) 

For  priaary  coaponents,  this  indicated  whether 
the  coap  was  a  pacing  itea: 

Y  =  Yes 

V  =  lo 

Inventory  applied 

Dollar  value  of  inventory  applied 

Production  applied 

Dollar  value  of  production  applied.  (This  is 
0  when  PKGL  -  0  and  TYPE  =  ’O') 

•ork-years  used 

Percent  of  line  used  to  produce  the  quantity, 
based  on  a  1-8-5  shift 

Shortfall  (unfilled  requireaent) 

Reason  Code  for  shortfall 
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Si 


HSOLft 

(Other  Requireasnti  Output  Teble) 


ELHCIT 

TYPE 

WIDTH 

SCALE 

DESCIIPTIOI 

SCI 

luaber 

2 

0 

Revision  Control  luaber 

DODIC 

Char 

4 

Departaent  of  Defense  Identification  Code 

FT 

luaber 

2 

0 

Fiscal  Year 

SERVICE 

Char 

2 

Service 

TYPE 

Char 

1 

For  priaary  component,  this  indicates  ahetber 
the  coap  mas  a  pacing  item: 

Y  =  Yes 

1  =  lo 

IIV.APP 

luaber 

10 

0 

Inventory  applied 

IIY.DV 

luaber 

10 

0 

Dollar  value  of  inventory  applied 

PBODIPP 

luaber 

10 

0 

Production  applied 

PROD_DV 

lumber 

10 

0 

Dollar  value  of  production  applied 

WHKTES 

luaber 

7 

2 

Work-years  used 

PCT.LIIE 

luaber 

7 

2 

Percent  of  line  used  to  produce  the  quantity, 
based  on  a  1-8-5  shift 

SFALL.QTY 

luaber 

10 

0 

Shortfall  (unfilled  requireaents) 

SC 

Char 

1 

Reason  Code  for  shortfall 
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BIS0LT3 

(Production  Output  Table) 


ELEMETT 

TYPE 

WIDTH 

SCALE 

DESCRIPTION 

SCI 

luaber 

2 

0 

Revision  Control  luaber 

DODIC 

Char 

4 

Departaent  of  Defense  Identification  Code 

PLAIT 

Char 

2 

0 

Plant  Code 

LIKE 

luaber 

3 

0 

Line  luaber 

FY 

luaber 

2 

0 

Fiscal  Year 

TYPE 

Char 

1 

Type  of  iten 

PRODOTHER 

luaber 

10 

0 

Aaount  produced  to  support  other  service 
requireaent8 

PROD  TATE 

luaber 

10 

0 

Aaount  produced  to  support  Aray  test  and 
training 

PRODADOS 

luaber 

10 

0 

Aaount  produced  to  support  Aray  DOS 
(includes  prior  years  undelivered  production) 

D»  ASHY 

luaber 

10 

0 

Dollar  Value  of  Aray  production  (does  not 
include  cost  of  prior  year  undelivered 
production) 

WKYBS.AB 

luaber 

7 

2 

•ork-years  used  to  produce  the  Aray  quantity 

PCTLI1EAR 

luaber 

7 

2 

Percent  of  line  used  to  produce  the  Aray 
quantity,  based  on  a  1-8-5  shift 

DVOTHER 

luaber 

10 

0 

Dollar  value  of  other  custoaer  production 

WRXYESOT 

luaber 

7 

2 

iork-years  used  to  produce  other  custoaer 
quantity 

PCT.Lin.OT 

luaber 

7 

2 

Percent  of  line  used  to  produce  other 
custoaer  quantity,  based  on  a  1-8-5  shift 
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ISSULTt 

lUn  Output  Table) 


ELBERT 

TTPE 

RIDTH 

SCALE 

BCR 

Ruaber 

2 

0 

DODIC 

Char 

4 

FT 

Ruaber 

2 

0 

TTPE 

Char 

1 

0 

AIRT.OTHEB 

Ruaber 

10 

0 

AIRY.TATB 

Ruaber 

10 

0 

AIIT.ADOS 

Ruaber 

10 

0 

E_  ASSETS 

Ruaber 

10 

0 

PFIU.OTHEB 

Ruaber 

7 

2 

PFILLTATB 

Ruaber 

7 

2 

PFILLADOS 

Ruaber 

7 

2 

SFALL_OTHEB 

Ruaber 

10 

0 

SFALL_TATB 

Ruaber 

10 

0 

SFALL.ADOS 

Ruaber 

10 

0 

PBOD  ABUT 

Ruaber 

10 

0 

DESCBIPTIOR 

Revision  Control  Ruiber 

Department  of  Defense  Identification  Code 

Fiscal  Tear 

Type  of  item  also  includes  'X'  for 
unassigned  iteas  with  remaining  assets 

tray  inventory  applied  to  support  other 
service  requirements 

Army  inventory  applied  to  support  Army  test 
and  training  requirements 

Arny  inventory  applied  to  support  Arny  DOS 
requirements 

Ending  Assets 

Percent  of  other  service  requirements  filled 
(by  inventory  ♦  production) 

Percent  of  Aray  test  and  training  require¬ 
ments  filled  (by  inventory  ♦  production) 

Percent  of  Aray  DOS  requirements  filled  (by 
inventory  ♦  production) 

Shortfall  of  other  service  requirements 

Shortfall  of  Aray  test  and  training  requirements 

Shortfall  of  Army  DOS  requirements 

Total  produced  for  Aray  (includes  prior 
year  undelivered  production) 
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BKSULT4 

(It«a  Output  Ttbli  -  Continued) 


ELEMENT 

TYPE 

WIDTH 

SCALE 

DESCRIPTION 

DY.ARMY 

Number 

10 

0 

Dollar  value  of  Army  production  (does  not 
include  cost  of  prior  year  undelivered  production) 

PB0D_CHG 

Dumber 

10 

0 

Manual  change  (♦  or  -)  to  PROD. ARMY 

DYCHG 

Humber 

10 

0 

Manual  change  (♦  or  -)  to  DT.ARMY 

CUMCHG 

Huaber 

10 

0 

Cumulative  manual  change  (*  or  -)  to  PROD.ARMY 

«imn 

ISuwrjr  bjf  Plant  u>4  Packege/Servici  Table) 


WIDTH 

2 

2 

2 

2 

2 

10 


WSXYRS  luaber 


SCALE  DESCBIPTlOi 

0  Bevision  Control  luaber 

0  Fiscal  Year 

Plant  Code 

0  Package  Level 

Service  Code 

0  Dollar  Value  of  Production 


7 


2 


Work-years  used 
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RESULTS 

(Suaatry  by  Flint  and  Lint  Table) 


ELEMEIT 

TYPE 

WIDTH 

SCALE 

DESCBIPTIOI 

SCI 

luaber 

2 

0 

Revision  Control  luaber 

FT 

Vuaber 

2 

0 

Fiscal  Tear 

PLAIT 

Char 

2 

0 

Plant  Code 

LIKE 

luaber 

3 

0 

Line  luaber 

DVPBOD 

luaber 

10 

0 

Dollar  Value  of  Production 

VBXTSS 

luaber 

7 

2 

Work-years  used 

PCTLIIE 

luaber 

7 

2 

Percent  of  line  used  based 
1-8-5  shift 
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ANNEX  C 

DECISION  FLOW  PROCESS 
FOR 

PRODUCTION  SCKEDULINQ  MODEL 


1.  Obtain  the  Revision  Control  Number  (RCN) . 

2.  Obtain  guidance  from  the  Revision  Table  (REVTAB)  -  applied  to 
all  items. 

a.  Beginning  Fiscal  Year  ( F Y ) . 

b.  Number  of  FYs  for  the  r  jdv. 

c.  Level  of  Training  Requirements. 

d.  Depot  Training  Requirements. 

e.  Are  assets  used  or  is  everything  produced. 

f.  Are  excess  assets  applied  to  satisfy  Other  Service  Require 
ments . 

3.  Clear  results  out  of  tables  for  this  RCN. 

4.  Get  initial  data  for  all  items. 

a.  From  PTRARRAY  file  (generated  from  the  BUILDPTR  program) 

(1)  Obtain  all  items  that  will  be  considered. 

(2)  Obtain  primary  components  and  procurement  factors. 

(3)  Obtain  secondary  components  and  procurement  factors. 

(4)  Obtain  list  of  plants  in  the  data  base. 

(5)  Obtain  all  locations  where  an  item  can  be  produced. 

(6)  Obtain  list  of  end  items  that  use  each  primary 
component . 

b.  From  LINE  table  (LINE):  Get  valid  line/plant  combinations 

c.  From  RAMP  YEARS  table  (RAMP_ITEM):  Get  beginning  assets. 


'  V  A  A  A  . 
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d.  From  PRODUCTION  table  (PRODT) :  Get  production  data  (R185, 
R285 ,  S185,  S285 ,  number  of  shifts  (available,  MPA)  for  each  DODIC/ 
LINE  combination. 

e.  From  SERVICE  table:  Obtain  list  of  valid  service  codes. 

5.  Develop  yearly  production  schedule. 

a.  Update  yearly  data. 

(1)  From  ITEM  DATA  table  ( ITEM_DATA) : 

(a)  Get  unit  prices  for  Army  items. 

(b)  Get  maximum  inventory  allowed  (MIA)  constraints 
for  each  item. 

(2)  From  STAFF  table  (STAFF) : 

(a)  Get  direct  labor  (actual  available)  for  each 

plant . 

(b)  Get  goal  (percent  of  the  direct  lavc  '  workforce, 
for  each  plant,  which  should  be  achieved  to  balance  workload  - 
usually  90  percent) . 

(3)  From  PRODUCTION  CHANGE  table  (PRODTFY) : 

Update  production  data  (add  or  delete  lines,  change  production 
rates,  staffing,  shift  availability,  MPA). 

(4)  From  TOTAL  REQUIREMENTS  table  (TREQ) . 

(a)  Get  drawdown  quantity  for  each  item. 

(b)  Get  buildup  quantity  for  each  item. 

(5)  From  RAMP  YEARS  PRODUCTION  table  (RAMP_PR0D) : 

(a)  Schedule  the  undelivered  RAMP  year  quantities  and 
their  primary  components. 

(b)  Costs  are  not  charged  for  the  actual  year  of 
production  because  the  item  was  previously  funded. 

(c)  Undelivered  quantities  that  were  not  produced  in 
the  first  FY  are  carried  forward  to  the  remaining  years. 
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(d)  Scheduled  production  is  written  to  the  RESULT1 

table . 

b.  Process  Other  Customer  Requirements .  (This  routine 
processes  the  Other  Customer  Requirements  in  DODIC  order,  writes 
results  to  the  RESULT2  table,  and  accumulates  data  for  other  output 
tables . ) 


(1)  From  OTHER  REQUIREMENTS  table  (REQTS_0THER) : 

(a)  Get  requirements  and  unit  prices  for  each  item, 
for  each  service. 

(b)  Starts  with  the  first  item  listed  in  the  table. 

(2)  From  the  SERVICE  table  (SERVICE) :  Check  for  valid 
service  codes  against  the  codes  listed  in  the  SERVICE  table. 

(3)  Check  if  other  customers  are  allowed  to  use  Army 
inventory : 


(a)  If  'Yes’,  check  asset  posture  versus  drawdown 
quantity.  Apply  excess  assets  toward  satisfying  Other  Service 
requirements.  If  Other  Service  requirements  are  now  satisfied,  go 
to  the  next  item  (return  to  step  5b ( 1 )  and  process  the  next  item). 

(b)  If  'No',  check  if  the  item  can  be  produced;  i.e., 
could  have  a  production  capacity  constraint,  staffing  constraint, 
cannot  produce  a  primary  component,  or  no  production  facilities 
available.  If  a  constraint  exists,  go  to  the  next  item  (return  to 
step  5b ( 1 )  and  process  the  next  item). 

(4)  For  each  plant/line  combination  where  this  item  can  be 
produced,  the  following  checks  will  be  performed: 

(a)  Check  remaining  line  capacity. 

(b)  Check  remaining  staffing  level. 

(c)  If  an  Army  requirement  is  being  processed,  then 
check  if  there  is  an  MPA  constraint  on  this  item.  If  there  is, 
production  will  be  limited. 

(d)  Compute  and  schedule  the  quantity  permitted  by  the 
remaining  production  capacity  and  staffing. 
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(e)  If  requirements  were  not  satisfied,  check  for 
other  production  facilities  (return  to  step  5b ( 4 ) (a)  and  continue 
processing) . 

(5)  Schedule  primary  components  to  support  the  end  item. 
(This  routine  controls  the  processing  of  primary  components,  given 
that  an  end  item  is  produced.): 

(a)  Select  the  first  primary  component  and  its 
procurement  factor. 

(b)  Compute  the  primary  component’s  requirements. 

(c)  Check  if  the  requirements  for  this  component  can 
be  satisfied  from  inventory,  and  apply  what  is  possible.  If  the 
inventory  can  satisfy  the  total  requirements  for  this  component, 
select  the  next  primary  component  (return  to  step  5b(5)). 

(d)  If  the  inventory  cannot  satisfy  the  requirements 
for  the  component,  then  schedule  production  of  this  component 
(return  to  step  5b(4)).  If  production  satisfied  the  requirements, 
then  check  the  components  for  the  primary  component,  and  then  select 
the  next  primary  component  (return  to  step  5b(5)). 

(e)  If  the  requirements  for  the  primary  component 
cannot  be  satisfied  by  inventory  or  production,  then  the  component 
is  identified  as  a  pacer.  Other  end  items  will  thus  be  constrained 
if  they  require  this  primary  component. 

(6)  Go  process  next  Other  Customer  requirement.  (Repeat 
loop  5b  until  all  Other  Customer  requirements  are  satisfied.) 

c.  Process  Army  Data.  (This  routine  processes  the  Army 
requirements  in  a  specified  priority  order  within  each  PDIP,  writes 
results  to  RESULT1  table,  and  accumulates  data  for  other  output 
tables . ) 

(1)  Get  Army  related  yearly  data.  (This  routine  gets  the 
TOA  Activity  I  dollars,  the  POM  costs  for  specified  items,  the  PDIP 
funding  sequence,  and  the  percent  of  training  requirements  to  be 
filled  for  each  item.) 

(a)  From  the  GOALS  table,  obtain  the  Total  Obligation 
Authority  for  hardware  dollars  (TOA  Activity  I) ,  and  the  Percent  of 
Training  Requirements  to  be  Filled  (PCT_TRNG) ,  for  all  items. 
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(b)  From  the  ITEM  DATA  table  (ITEM_DATA) ,  select  the 
POM  costs.  The  POM  costs  are  then  subtracted  from  the  TOA  Activity  I 
costs  to  obtain  the  dollar  balance  available  for  the  remaining 
program. 


(c)  From  the  PDIP  Funding  Sequence  table  (PFSTAB) , 
obtain  the  PDIP  funding  sequence.  This  establishes  the  funding 
priority  of  the  various  package  levels. 

(d)  From  the  ITEM  DATA  table  (ITEM_DATA),  obtain  the 
percent  of  training  requirements  to  be  filled  for  items  that  are 
exceptions  to  the  values  obtained  from  the  GOALS  table  (in  5c(l)(a) 
above)  . 


(2)  Get  item  priority  sequence.  (This  routine  builds  the 
priority  array  which  is  used  to  establish  the  sequence  in  which 
items  are  processed  within  each  PDIP.) 

From  the  ITEM  DATA  table  (ITEM_DATA) ,  assign  to  each  item  either  the 
DCSOPS  priority  or  alternate  priority  number.  (The  DCSOPS  priority 
number  is  the  only  priority  number  currently  used.  The  alternate 
priority  number  can  be  used  for  'what-if  studies.) 

(3)  For  each  PDIP  (process  PDIPs  in  order  of  funding) . 

(a)  For  each  item  within  that  PDIP  (process  the  items 
in  priority  sequence) : 

(1_)  Check  if  Level  2  Training  is  allowed 
(packages  10  and  11).  The  level  of  training  indicator  is  selected 
from  the  REVISION  table  (REVTAB) .  If  Level  2  Training  is  not 
allowed,  the  shortfall  reason  code  is  set  equal  to  'F‘  (Level  2 
Training  not  allowed),  and  the  shortfall  records  are  written  out. 

If  Level  2  Training  is  allowed,  continue  processing. 

(2)  For  packages  6  and  11,  check  if  the  pipeline 
is  filled  over  3  years.  If  the  pipeline  is  filled  over  a  3  year 
period,  write  the  shortfall  for  the  first  2  years  with  a  reason  code 
'G'  (pipeline  filled  over  a  3  year  period).  If  not  filled  over  a  3 
year  period,  continue  processing. 

(3)  For  package  5,  check  if  training  is  restricted 
If  training  is  restricted,  write  the  shortfall  for  the  restricted 
portion  with  a  reason  code  of  'I'  (requirement  exceeds  percent  of 
training  allowed).  If  training  is  not  restricted,  continue  proces¬ 
sing  . 


A 
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possible . 


(4)  Fill  requirements  from  inventory,  if 


(a)  If  it  is  a  test  or  training  requirement, 
apply  inventory  in  excess  of  the  drawdown  requirement. 

(b)  If  it  is  a  DOS  requirement,  then 
inventory  not  already  allocated  is  assigned  to  the  appropriate  DOS 
package . 


(5)  If  the  requirement  could  not  be  satisfied 
from  inventory,  then: 

(a)  If  the  requirement  exceeds  the  buildup 
goal,  write  the  shortfall  for  the  excess  portion  with  a  reason  code 
of  'E*  (requirement  exceeds  buildup  target) . 

(b)  Check  if  funds  for  production  are 
available  for  shortfall  requirements  due  to  inventory  or  buildup 
constraints.  If  a  funding  constraint  exists,  write  a  shortfall 
record  for  the  unfunded  portion,  with  a  reason  code  "A‘  (lack  of 
sufficient  funds) . 

% 


(c)  Check  if  the  item's  unfilled  requirement 
exceeds  the  MIA  constraint.  If  it  does,  write  a  shortfall  record 
for  the  excess  portion  with  a  reason  code  'K‘  (maximum  inventory 
allowed  constraint) . 


(d)  Schedule  production  for  the  unfilled 
requirement  (repeat  step  4b ( 4 ) ) . 

(6)  Schedule  primary  components  to  support  the 
end  item  (repeat  step  5b(5)). 

(7)  Accumulate  secondary  component  requirements. 

(8)  Loop  to  the  next  item  in  priority  sequence 
(return  to  step  5c(3)(a)). 

(b)  Process  the  secondary  components  for  this  package. 
For  each  secondary  component  with  a  requirement: 


possible. 


(1)  Fill  the  requirement  with  inventory,  if 


C-6 
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(2)  If  the  requirement  was  not  satisfied  with 
inventory,  then  check  if  funds  for  production  are  available  for  the 
shortfall  quantity.  If  a  funding  constraint  exists,  write  a  short¬ 
fall  record  for  the  unfunded  portion  with  a  reason  code  "A‘  (lack  of 
sufficient  funds). 

(3)  Schedule  production  for  the  unfilled 
requirement  (repeat  step  5b(4)). 

(4)  Schedule  primary  components  to  support  the 
secondary  item  (repeat  step  5b ( 5 ) ) . 

(5)  Loop  to  the  next  secondary  item  with  a 

requirement . 

d.  Write  results.  Results  are  written  to  the  following  tables: 

(1)  RESULT3  (Production  Output  Table). 

(2)  RESULT4  (Item  Output  Table). 

(3)  RESULTS  (Summary  by  Plant  and  Package  or  Service) . 

(4)  RESULT6  (Summary  by  Plant  and  Line) . 

NOTE:  The  RESULT1  (Army  Requirements  Output  Table)  and  RESULT2 
(Other  Requirements  Output  Table)  tables  are  continually  updated  as 
each  item  is  processed. 

e.  Process  the  Next  Year’s  Requirements  (repeat  Loop  5  until 
all  years  are  processed) . 


a 
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ANNEX  D 

FILE  FORMATS 

ICAPP  Extract  File 


DATA  ELEMENT 

FORMAT 

COLUMN 

REMARKS 

DODAC 

A8 

1-8 

Service  Code  A2  9-10 


SSN 

A6 

11-16 

Nomenclature 

A50 

17-66 

Requirements : 

Prior  year 

110 

67-76 

Current  year 

no 

77-86 

Budget  year 

no 

87-96 

POM  year  1 

no 

97-106 

POM  year  2 

no 

107-116 

POM  year  3 

no 

117-126 

POM  year  4 

no 

127-136 

POM  year  5 

no 

137-146 

Unit  Prices: 

Prior  year 

F11.4 

147-157 

Current  year 

Fll  .4 

158-168 

Budget  year 

Fll  .4 

169-179 

POM  year  1 

Fll  .4 

180-190 

POM  year  2 

Fll  .4 

191-201 

POM  year  3 

FI  1 .4 

202-212 

POM  year  4 

Fll  .4 

213-223 

POM  year  5 

Fll. 4 

224-234 

NS  =  Navy  Sea 
NA  =  Navy  Air 
MC  =  Marine  Corps 
AF  =  Air  Force 
CG  =  Coast  Guard 
OT  -  Other 
AR  =  Army* 


•Note  that  these  Army  requirements  are  not  used  since  we  got  them 
from  RDAISA. 


V 


vv 


coMmnoN 


234 


i 
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l 


ANNEX  E 

SUBROUT I NE  CROSS-REFERENCE 


ROUTINE 

1ANE 

DESCRIPTION 

CALLED 

FBON 

(Financial  Prograa  -  PJSDL) 

PJSMDL 

lain  prograa  for  the  financial  prograa.  Initiates 
OBACLE  login,  terainal  type,  and  character  styles. 

Calls  for  graphics  aenu  and  exits  prograa. 

DOLNEl 

Plot  aenu  for  financial  plots. 

PJSMDL 

D0LPT1 

Graphics  routine  for  dollars  grouped  by  faailies 
for  plants.  This  routine  sets  up  graphics  coaaon 
areas  and  defaults  for  display,  and  reads  in  data. 

DOLNEl 

D0LTP2 

Graphics  routine  for  dollars  grouped  by  PD1P  pack¬ 
ages  for  plants.  This  routine  sets  up  graphics 
coaon  areas  and  defaults  for  display  and  reads  in 
data. 

D0LME1 

D0LTP3  Graphics  routine  for  dollars  by  fanily  for  a  plant- 

year.  This  routine  sets  up  graphics  conon  areas 
and  defaults  for  display  and  reads  in  data. 


DOLNEl 


DQLPT4  Graphics  routine  for  dollars  by  year  expended  for 

TOA,  hardware,  and  production  base.  This  routine 
sets  all  plot  paraaeters  and  reads  in  the  data. 


DOLNEl 


E-  1 


CALLS 

TO 


G08CLI 

GTMITP 

GPTSTL 

DOLNEl 

ZREADI 

GTEAB 

GFANLT 

GPLAVT 

DBDOL 1 

0DATI1 

BGIPLT 

GTEAB 

GPDIPS 

GPLA1T 

DBD0L2 

UDATII 

BGIPLT 

GTEAB 

GFANLT 

GPLA1T 

DBDOL 1 

UDATII 

BGIPLT 

GTEAB 

DBD0L4 

ODATIM 

BGIPLT 
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£ 

»ys 


ROOTIIE 

IAME 


DESCBIPTIOM 

Graphics  routine  for  dollars  by  year  of  plant  of 
saw  type.  This  routine  sets  all  plot  paraaeters 
and  gets  data  froa  the  data  base  only,  A  plot  for 
each  of  the  three  plant  types  is  generated. 


r 


1 8 


Graphics  routine  for  dollars  by  year  grouped  by  the 
three  plant  types.  This  routine  sets  all  plot 
paraaeters  and  reads  in  the  data. 


Graphics  routine  for  dollars  by  year  expended  for 
TOA  and  POM.  This  routine  sets  all  plot  paraaeters 
and  reads  in  the  data. 


Graphics  routine  for  dollars  by  year  grouped  by 
training,  aar  reserve,  and  production  base.  This 
routine  sets  all  plot  paraaeters  and  reads  in  the 
data. 


(Workload  Prograa  -  PJ8ML) 


Main  prograa  for  the  workload  prograa.  Initiates 
ORACLE  login,  terainal  type,  and  character  styles. 
Calls  for  graphics  aemi  and  exits  the  progran. 


enu  for  workload  plots. 


Graphics  routine  for  work-year  grouped  by  signifi¬ 
cant  iteas  for  plants.  This  routine  sets  all  plot 
paraaeters  and  reads  in  the  data. 


WPS 
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BOUTIBE 

MAME 

DESCRIPTIOS 

CALLED 

FROM 

CALLS 

TO 

IRKPT2 

Graphics  routine  ior  work-years  grouped  by  families 
for  plants.  This  'outine  sets  all  plot  parameters 
and  reads  in  the  data. 

WRKKEN 

GTE  AS 

GFAMLY 

GPLAMT 

DBMRK2 

UDATII 

BGMPLT 

MRKPT3 

Graphics  routine  for  work-years  grouped  by  PDIP 
packages  for  plants.  This  routine  sets  all  plot 
parameters  and  reads  in  the  data. 

WRKMEI 

GYEAR 

GPDIPS 

GPLAMT 

DBWRK2 

WRXPT4 

Graphics  routine  for  work-years  grouped  by  service 
for  plants.  This  routine  sets  all  plot  parameters 
and  reads  in  the  data. 

WRKMEM 

GYEAR 

GSEBVC 

GPLAMT 

DBWRK4 

DDATIM 

BGMPLT 

(Production  Quantity  Program  -  PJSMPD) 

PJSMPD 

Main  program  for  the  production  quantity  program. 
Initiates  ORACLE  login,  terminal  type,  and  char¬ 
acter  styles.  Calls  for  graphics  menu  and  exits 
program. 

GORCLI 

GTMTTP 

GPTSYL 

PRDMEM 

DBLOGO 

PBDMEH 

Plot  menu  for  production  quantity  plots. 

PJSMPD 

ZREADI 

PRDPT1 

PRDPT2 

PRDPT1 

Graphics  routine  for  quantity  by  significant  items 
for  plants.  This  routine  sets  ali  plot  parameters 
and  reads  in  data. 

PROMER 

GYEAR 

GPLAMT 

GSIGIT 

GITEMS 

DBPRD1 

DDATIM 

BGMPLT 

E-3 
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BOOTHS 


SAKE 

DESCBIPTIOI 

(lequireaenti  Prograa  -  PJSMBQ) 

PJSMBQ 

Main  prograa  for  the  requireaents  prograa.  Initi¬ 
ates  OBACLE  login,  terainal  types,  and  character 
styles.  Calls  for  graphics  aenu  and  exits  the 
prograa. 

REQICI 

Plot  aenu  for  requireaents  plots. 

BEQPT1 

Graphics  routine  for  requireaents  by  year  grouped 
by  service.  This  routine  sets  all  plot  paraaeters 
and  reads  in  the  data. 

(CoHon  Subroutine  Package  -  PJ3MCOIO 

ADDDLL  Adds  a  dollar  Sign  to  th«  end  of  a  string  for  use 

by  DISSPLA's  self-terainating  String  option. 

BGIPLT  Begins  plotting  at  the  end  of  a  graphics  routine  by 

showing  the  PLOT/UPDATE  Mnu  or  directly  plotting 
the  data. 

GETFAM  Returns  family  naaes  froa  fanily  nuaber. 

GETPLI  Contains  a  list  of  plant  naaes  and  codes.  Used  in 

the  code  ahen  not  reading  froa  the  data  base. 

GETPTT  Gets  plot  type  froa  aenu. 

GFAMLY  Selects  faaily  groups  by  aenu. 

GITEMS  Gets  user  selected  lteas. 


E-4 
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BOOTIME 

MAjE 

GOBCLI 

GPDIPS 

GPLAIT 

GPTSYL 

GSERVC 

GSIGIT 

GTWYP 

GOPDAT 

GTE  AS 

* 


DESCBlPTIOii 


Queries  user  Aether  data  base  is  to  be  used.  If 
so,  the  ORACLE  naae  and  password  is  entered  and 
login  occurs. 


Gets  user  entered  PDIP  package  nuaber  with  the 
package  naae. 

Gets  the  list  of  available  plants  and  presents 
those  plants  as  a  aenu  for  user  selection. 


Gets  desired  plot  style  by  selection  of  a  character 
font  froa  a  aenu. 


Provides  a  aenu  of  services  and  gets  user  selection. 


Gets  aost  significant  iteas  froa  a  plant  based  on 
user  selection  of  criteria.  Set  itea  legend  inf or 
aation. 


Presents  aenu  and  gets  terainal  type.  Initializes 
DISSPLA  postprocessor  routine  and  sets  color  flag. 


Provides  a  aenu  and  aeans  to  update  graphics  para- 
aeter  in  the  graphics  coaaon  block. 


Gets  the  first  year  for  plots.  If  aore  than  1  year 
is  requested,  asks  for  nuaber  of  years. 
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BOOTHS  CALLED  CALLS 

»A1C  DESCBIPTIOI  FROM  TO 

LSTDAT  Lists  to  the  screen  a  formatted  display  of  the  BGIPLT 

graphics  coaaon  block. 

MTPIE  Soutine  lor  use  by  D1SSFLA  to  set  colors  for  pie 

selections  in  pie  charts. 

MTSPEC  Routine  for  use  by  D1SSPLA  to  set  legend  colors  to 

Batch  data  colors. 

10TDOI  Prints  aessage  to  user  that  selected  option  is  not 

available  for  use. 

PLOTIT  Begins  plotting  by  asking  appropriate  calls  accord-  BGIPLT  Display 

ing  to  plot  type  selected.  Initialises  DISSPLA 
plotting  if  desired. 

SETCOL  Makes  DISSPLA  calls  to  set  color  of  user's  choice.  Display 

DDATII  Asks  for  a  user  data  value.  Must  be  entered  as  an  Graphics  ZREADI 

integer. 

ZAESTH  Determines  an  aesthetic  scale  for  plotting  froa  a  Display 

given  ainiaua  and  aaxiaua  value. 

ZREADI  Reads  integer  values  froa  an  input  string  in  a  free  Various 

froa  Banner. 
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